tests/test_scripts/array_job_submitted.R

In epi-sam/SamsElves: Helper functions for the data science at IHME

message("Starting pre-parser.")
pre_parser <- argparse::ArgumentParser()
pre_parser$add_argument('--script_path')
pre_parser$add_argument('--root_code')
args      <- pre_parser$parse_args(commandArgs(trailingOnly = TRUE))
root_code <- args$root_code

message("code_root from per-parser: ", root_code)

message("Slurm array task id is:", Sys.getenv("SLURM_ARRAY_TASK_ID"))

message("Done.")