Mercurial > repos > proteore > proteore_expression_rnaseq_abbased

comparison add_expression_HPA.R @ 1:03487ed0f458 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit a0d05bb4c75c1762b1ba63cbb63f8975a87911ed-dirty
author proteore
date Wed, 14 Nov 2018 05:34:14 -0500
parents 234d114cbe3a
children 70e3b70ded22
comparison
equal deleted inserted replaced
0:234d114cbe3a 1:03487ed0f458
55 parseArgs <- function(x) strsplit(sub("^--", "", x), "=") 55 parseArgs <- function(x) strsplit(sub("^--", "", x), "=")
56 argsDF <- as.data.frame(do.call("rbind", parseArgs(args))) 56 argsDF <- as.data.frame(do.call("rbind", parseArgs(args)))
57 args <- as.list(as.character(argsDF$V2)) 57 args <- as.list(as.character(argsDF$V2))
58 names(args) <- argsDF$V1 58 names(args) <- argsDF$V1
59 59
60 save(args,file="/home/dchristiany/proteore_project/ProteoRE/tools/add_expression_data_HPA/args.rda") 60 #save(args,file="/home/dchristiany/proteore_project/ProteoRE/tools/add_expression_data_HPA/args.rda")
61 #load("/home/dchristiany/proteore_project/ProteoRE/tools/add_expression_data_HPA/args.rda") 61 #load("/home/dchristiany/proteore_project/ProteoRE/tools/add_expression_data_HPA/args.rda")
62 62
63 inputtype = args$inputtype 63 inputtype = args$inputtype
64 if (inputtype == "copypaste") { 64 if (inputtype == "copypaste") {
65 input = strsplit(args$input, "[ \t\n]+")[[1]] 65 input = strsplit(args$input, "[ \t\n]+")[[1]]