AR6 Climate assessment on reporting

DESCRIPTION

@@ -51,7 +51,7 @@ Imports:
     nleqslv,
     optparse,
     piamenv (>= 0.4.0),
-    piamInterfaces (>= 0.12.6),
+    piamInterfaces (>= 0.12.18),
     plotly,
     purrr,
     quitte (>= 0.3128.4),

output.R

@@ -67,7 +67,7 @@ library(lucode2)
 library(gms)
 require(stringr, quietly = TRUE)
 
-invisible(sapply(list.files("scripts/start", pattern = "\\.R$", full.names = TRUE), source))
+source("scripts/start/isSlurmAvailable.R")
 
 flags <- NULL
 ### Define arguments that can be read from command line
@@ -86,11 +86,18 @@ if ("--help" %in% flags) {
 choose_slurmConfig_output <- function(output) {
   slurm_options <- c("--qos=priority", "--qos=short", "--qos=standby",
                      "--qos=priority --mem=8000", "--qos=short --mem=8000",
-                     "--qos=standby --mem=8000", "--qos=priority --mem=32000",
-                     "direct")
-  if ("reporting" %in% output) slurm_options <- unique(c(grep("--mem=[0-9]*[0-9]{3}", slurm_options, value = TRUE), "direct"))
+                     "--qos=standby --mem=8000", "--qos=priority --mem=32000")
+
   # Modify slurm options for ar6 reporting, since we want to run MAGICC in parallel and we'll need a lot of memory
   if ("ar6Climate" %in% output) slurm_options <- paste(slurm_options[1:3], "--tasks-per-node=12 --mem=32000")
+
+  if (!isSlurmAvailable())
+    return("direct")
+
+  if (!is.null(slurmExceptions)) {
+    slurm_options <- grep(slurmExceptions, slurm_options, value = TRUE)
+  }
+
   if (length(slurm_options) == 1) {
     return(slurm_options[[1]])
   }