## Construct SYSargs object from param and targets files
param <- system.file("extdata", "tophat.param", package="systemPipeR")
targets <- system.file("extdata", "targets.txt", package="systemPipeR")
args <- systemArgs(sysma=param, mytargets=targets)
args
names(args); modules(args); cores(args); outpaths(args); sysargs(args)
## Not run:
# ## Execute SYSargs on single machine
# runCommandline(args=args)
#
# ## Execute SYSargs on multiple machines of a compute cluster. The following
# ## example uses the conf and template files for the Torque scheduler. Please
# ## read the instructions above how to obtain the corresponding files for other schedulers.
# file.copy(system.file("extdata", ".BatchJobs.R", package="systemPipeR"), ".")
# file.copy(system.file("extdata", "torque.tmpl", package="systemPipeR"), ".")
# resources <- list(walltime="00:25:00", nodes=paste0("1:ppn=", cores(args)), memory="2gb")
# reg <- clusterRun(args, conffile=".BatchJobs", template="torque.tmpl", Njobs=18, runid="01", resourceList=resources)
#
# ## Monitor progress of submitted jobs
# showStatus(reg)
# file.exists(outpaths(args))
# sapply(1:length(args), function(x) loadResult(reg, x)) # Works once all jobs have completed successfully.
#
# ## Alignment stats
# read_statsDF <- alignStats(fqpaths=tophatargs$infile1, bampaths=bampaths, fqgz=TRUE)
# read_statsDF <- cbind(read_statsDF[targets$FileName,], targets)
# write.table(read_statsDF, "results/alignStats.xls", row.names=FALSE, quote=FALSE, sep="\t")
# ## End(Not run)
Run the code above in your browser using DataLab