diff annotateMyIDs.xml @ 6:ecc913a7334b draft

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/annotatemyids commit a0c51ab52c4e3f296d5577ee3af26c4c1465e1e9
author iuc
date Fri, 08 Mar 2019 04:39:31 -0500
parents b467a89be0c6
children 1aae04680c4b
line wrap: on
line diff
--- a/annotateMyIDs.xml	Sat Feb 09 09:13:29 2019 -0500
+++ b/annotateMyIDs.xml	Fri Mar 08 04:39:31 2019 -0500
@@ -29,7 +29,8 @@
 file_has_header <- ${file_has_header}
 remove_dups <- ${remove_dups}
 
-ids <- as.character(read.table('$id_file', header=file_has_header)[,1], sep="\t", quote="")
+input <- read.table('$id_file', header=file_has_header, sep="\t", quote="")
+ids <- as.character(input[, 1])
 
 if(organism == "Hs"){
     suppressPackageStartupMessages(library(org.Hs.eg.db))