# HG changeset patch
# User proteore
# Date 1548930273 18000
# Node ID 6f389729a30bd4333be86b5f083eb79ce2f8f99f
# Parent  9845dc9c73235d5fc9a9828b46493b7c93e59a33
planemo upload commit 93c44875036dbc9b3b9c1416566cf91004b97429-dirty

diff -r 9845dc9c7323 -r 6f389729a30b kegg_maps_visualization.R
--- a/kegg_maps_visualization.R	Tue Dec 18 10:02:54 2018 -0500
+++ b/kegg_maps_visualization.R	Thu Jan 31 05:24:33 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 9845dc9c7323 -r 6f389729a30b kegg_maps_visualization.xml
--- a/kegg_maps_visualization.xml	Tue Dec 18 10:02:54 2018 -0500
+++ b/kegg_maps_visualization.xml	Thu Jan 31 05:24:33 2019 -0500
@@ -1,4 +1,4 @@
-<tool id="kegg_maps_visualization" name="KEGG maps visualization" version="2018.12.18">
+<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>