comparison annotateMyIDs.xml @ 3:b3db1e0bf574 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:23 -0500
parents 1b3e8d3fde62
children 6f65ef094db0
comparison
equal deleted inserted replaced
2:1b3e8d3fde62 3:b3db1e0bf574
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"){