# HG changeset patch
# User proteore
# Date 1548929950 18000
# Node ID 4cc2265d1294db685a88a582ffd9b32fb36cdb3a
# Parent  f4938e47f2f8ab612837122077f43f421bcd50ef
planemo upload commit 93c44875036dbc9b3b9c1416566cf91004b97429-dirty

diff -r f4938e47f2f8 -r 4cc2265d1294 kegg_maps_visualization.R
--- a/kegg_maps_visualization.R	Tue Dec 18 09:38:13 2018 -0500
+++ b/kegg_maps_visualization.R	Thu Jan 31 05:19:10 2019 -0500
@@ -8,9 +8,9 @@
 suppressMessages(library(KEGGREST))
 
 read_file <- function(path,header){
-    file <- try(read.csv(path,header=header, sep="\t",stringsAsFactors = FALSE, quote="\"", check.names = F, comment.char = "#"),silent=TRUE)
+    file <- try(read.csv(path,header=header, sep="\t",stringsAsFactors = FALSE, quote="\"", check.names = F, comment.char = ""),silent=TRUE)
     if (inherits(file,"try-error")){
-      stop("File not found !")
+      stop("Read file error ! Please check your file (header, # character, etc) ")
     }else{
       return(file)
     }
@@ -75,6 +75,7 @@
 }
 
 get_list_from_cp <-function(list){
+  list = gsub(",","\t",list)
   list = strsplit(list, "[ \t\n]+")[[1]]
   list = list[list != ""]    #remove empty entry
   list = gsub("-.+", "", list)  #Remove isoform accession number (e.g. "-2")
diff -r f4938e47f2f8 -r 4cc2265d1294 kegg_maps_visualization.xml
--- a/kegg_maps_visualization.xml	Tue Dec 18 09:38:13 2018 -0500
+++ b/kegg_maps_visualization.xml	Thu Jan 31 05:19:10 2019 -0500
@@ -1,4 +1,4 @@
-<tool id="kegg_maps_visualization" name="KEGG maps visualization" version="2018.12.18.1">
+<tool id="kegg_maps_visualization" name="KEGG maps visualization" version="2019.01.31">
     <description>of (differentially expressed) genes/proteins</description>
     <requirements>
         <requirement type="package" version="1.18.0">bioconductor-pathview</requirement>