Skip to content
Snippets Groups Projects

remove nonprintables and improve read

Merged Marek Ostaszewski requested to merge code_update into master
2 files
+ 3
2
Compare changes
  • Side-by-side
  • Inline
Files
2
@@ -98,6 +98,7 @@ get_hipathia_files <- function(raw_sif, node_prefix, model_elements, target_dir)
att_nodes <- sort(unique(c(raw_sif[,1],raw_sif[,3])))
att_labels <- sapply(att_nodes, function(x) with(model_elements, name[elementId == x]))
att_labels <- gsub("[^ -~]+", "", att_labels)
node_ID <- paste0("N-",node_prefix,"-", att_nodes)
### Retrieve Entrez and type for the entire list of unique nodes
entrez <- sapply(att_nodes, group_elements, model_elements, all_entrez)
Loading