comparison add_expression_HPA.R @ 7:c9943f867413 draft

planemo upload commit 6b011549498a096af60a494bc39c1a2078580a5a-dirty
author proteore
date Tue, 20 Mar 2018 10:46:46 -0400
parents 71214d6034e7
children 5c260bd3552e
comparison
equal deleted inserted replaced
6:71214d6034e7 7:c9943f867413
63 args <- as.list(as.character(argsDF$V2)) 63 args <- as.list(as.character(argsDF$V2))
64 names(args) <- argsDF$V1 64 names(args) <- argsDF$V1
65 65
66 inputtype = args$inputtype 66 inputtype = args$inputtype
67 if (inputtype == "copypaste") { 67 if (inputtype == "copypaste") {
68 input = strsplit(args$input, " ")[[1]] 68 input = strsplit(args$input, "[ \t\n]+")[[1]]
69 } 69 }
70 else if (inputtype == "tabfile") { 70 else if (inputtype == "tabfile") {
71 filename = args$input 71 filename = args$input
72 ncol = args$column 72 ncol = args$column
73 # Check ncol 73 # Check ncol