Mercurial > repos > proteore > proteore_ms_observation_pepatlas

comparison Get_ms-ms_observations.R @ 9:14c890ff105a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload"
author proteore
date Mon, 04 May 2020 03:18:37 -0400
parents 3e9ea4797b00
children ef723082fc54
comparison
equal deleted inserted replaced
8:8fdde324e99e 9:14c890ff105a
107 parseArgs <- function(x) strsplit(sub("^--", "", x), "=") 107 parseArgs <- function(x) strsplit(sub("^--", "", x), "=")
108 argsDF <- as.data.frame(do.call("rbind", parseArgs(args))) 108 argsDF <- as.data.frame(do.call("rbind", parseArgs(args)))
109 args <- as.list(as.character(argsDF$V2)) 109 args <- as.list(as.character(argsDF$V2))
110 names(args) <- argsDF$V1 110 names(args) <- argsDF$V1
111 111
112 #save(args,file="/home/dchristiany/proteore_project/ProteoRE/tools/Get_ms-ms_observations/args.Rda") 112 #save(args,file="/Users/David/work/ProteoRE/tools/Get_ms-ms_observations/args.Rda")
113 #load("/home/dchristiany/proteore_project/ProteoRE/tools/Get_ms-ms_observations/args.Rda") 113 load("/Users/David/work/ProteoRE/tools/Get_ms-ms_observations/args.Rda")
114 114
115 # Extract input 115 # Extract input
116 input_type = args$input_type 116 input_type = args$input_type
117 if (input_type == "list") { 117 if (input_type == "list") {
118 input = unlist(strsplit(strsplit(args$input, "[ \t\n]+")[[1]],";")) 118 input = unlist(strsplit(strsplit(args$input, "[ \t\n]+")[[1]],";"))