comparison runit/profia_runtests.R @ 2:3f8ae071bdda draft

planemo upload for repository https://github.com/workflow4metabolomics/profia.git commit 19ed25c048232776369a392ddb8c1860471acd29
author ethevenot
date Mon, 22 Jan 2018 11:32:41 -0500
parents 39ccace77270
children
comparison
equal deleted inserted replaced
1:4753e64cf694 2:3f8ae071bdda
47 argLs <- c(argLs, parC, paramLs[[parC]]) 47 argLs <- c(argLs, parC, paramLs[[parC]])
48 48
49 ## Call 49 ## Call
50 wrapperCallC <- paste(c(wrapperPathC, argLs), collapse = " ") 50 wrapperCallC <- paste(c(wrapperPathC, argLs), collapse = " ")
51 51
52 print(wrapperCallC)
53
54 if(.Platform$OS.type == "windows") 52 if(.Platform$OS.type == "windows")
55 wrapperCallC <- paste("Rscript", wrapperCallC) 53 wrapperCallC <- paste("Rscript", wrapperCallC)
56 54
57 wrapperCodeN <- system(wrapperCallC) 55 wrapperCodeN <- system(wrapperCallC)
58 56
59 if (wrapperCodeN != 0) 57 if (wrapperCodeN != 0)
60 stop("Error when running profia_wrapper.R.") 58 stop("Error when running profia_wrapper.R.")
61 59