comparison annotateMyIDs.xml @ 3:1a125daea0d8 draft

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/annotatemyids commit 8c76fdb69d9b860debc4eb419470ed1e8c1f0a28
author iuc
date Mon, 26 Nov 2018 02:46:54 -0500
parents 9ab35a2245ce
children 38eedf3cc3c9
comparison
equal deleted inserted replaced
2:9ab35a2245ce 3:1a125daea0d8
27 organism <- "${organism}" 27 organism <- "${organism}"
28 output_cols <- "${output_cols}" 28 output_cols <- "${output_cols}"
29 file_has_header <- ${file_has_header} 29 file_has_header <- ${file_has_header}
30 remove_dups <- ${remove_dups} 30 remove_dups <- ${remove_dups}
31 31
32 ids <- as.character(read.table('$id_file', header=file_has_header)[,1]) 32 ids <- as.character(read.table('$id_file', header=file_has_header)[,1], sep="\t", quote="")
33 33
34 if(organism == "Hs"){ 34 if(organism == "Hs"){
35 suppressPackageStartupMessages(library(org.Hs.eg.db)) 35 suppressPackageStartupMessages(library(org.Hs.eg.db))
36 db <- org.Hs.eg.db 36 db <- org.Hs.eg.db
37 } else if (organism == "Mm"){ 37 } else if (organism == "Mm"){