Unverified Commit 7c9a8c0d authored by Todor Kondic's avatar Todor Kondic
Browse files

pcl: R: add_ccs2csv: Update; pb-lite-driver: Update buildccs

parent 7521c18f
......@@ -13,7 +13,7 @@ SEL_ADDUCTS <- NULL # Change to adducts needed, if a subset of adducts
# desired. Otherwise, all shall be returned.
dir_start <- Sys.getenv("$STARTDIR")
dir_start <- Sys.getenv("STARTDIR")
args <- commandArgs(trailingOnly = T)
fn_config <- args[[1]]
if (!file.exists(fn_config)) stop("Config file", fn_config," does not exist.")
......
......@@ -125,7 +125,7 @@ function build() {
function buildccs() {
header BUILDCCS
(STARTDIR="$PWD";cd "$WORKDIR"; Rscript --vanilla "${SCRIPTDIR}/R/add_ccs2csv.R" "$STARTDIR/$MANIF" "$WORKDIR/$OUTMFFILE" "$WORKDIR/$OUTMFCCSFILE")
(export STARTDIR="$PWD";cd "$WORKDIR"; Rscript --vanilla "${SCRIPTDIR}/R/add_ccs2csv.R" "$STARTDIR/$MANIF" "$WORKDIR/$OUTMFFILE" "$WORKDIR/$OUTMFCCSFILE")
footer BUILDCCS
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment