view clusterProfiler_bitr.R @ 1:90120121398f draft default tip

planemo upload for repository https://github.com/kpbioteam/clusterProfiler_bitr commit 470dccce41afc79ef1cc7a6722b50d0c258e0f4f-dirty
author kpbioteam
date Mon, 16 Jul 2018 06:25:51 -0400
parents e7a71e686f53
children
line wrap: on
line source

require("clusterProfiler", quietly = TRUE)
require("org.Hs.eg.db", quietly = TRUE)

args <- commandArgs(trailingOnly = TRUE)

input1 = args[1]
input2 = args[2]
input3 = args[3]
output = args[4]

gene <- c(read.table(input1))
gene.df = bitr(gene$V1, fromType=input2, toType=input3, OrgDb="org.Hs.eg.db")

write.table(gene.df, file= output, quote = FALSE,col.names = FALSE, row.names = FALSE, sep = "\t")