1library(gtools)
2
3# For debugging conveneince
4cmdArgs <- commandArgs(trailingOnly = FALSE)
5print(cmdArgs)
6
7file <- script_file("warning")
8cat("script_file:", file, "\n")
9stopifnot(endsWith(file, "test_script_file.R"))
10
11path <- script_path("warning")
12cat("script_path:", path, "\n")
13# stopifnot(endsWith(path, "tests"))
14
15# save.image("test_script_file.Rda")
16