diff kegg_maps_visualization.R @ 4:8e611bdc96ec draft

"planemo upload commit 6bef056b0e52bfa39dbe8591bfe67f8c95bf3ba2-dirty"

--- a/kegg_maps_visualization.R	Fri Jun 28 05:16:30 2019 -0400
+++ b/kegg_maps_visualization.R	Wed Jan 15 11:31:03 2020 -0500
@@ -85,8 +85,8 @@
 
 get_ref_pathways <- function(species){
   ##all available pathways for the species
-  pathways <-keggLink("pathway", species)
-  tot_path<-unique(pathways)
+  pathways <- keggLink("pathway", species)
+  tot_path <- unique(pathways)
   
   ##formating the dat into a list object
   ##key= pathway ID, value = genes of the pathway in the kegg format
@@ -238,6 +238,7 @@
     pathways_file = read_file(args$pathways_input,header2)
     ids <- sapply(rapply(strsplit(clean_bad_character(pathways_file[,pathway_col]),","),c), function(x) remove_kegg_prefix(x),USE.NAMES = FALSE)
   }
+  if (args$native_kegg) { ids <- ids[ids != "04215"] }
   pathways_list <- read_file(args$pathways_list,F)
   if (!is.null(args$id_list)) {
     id_list <- get_list_from_cp(args$id_list)