Replace selecting via [[1]] by unlist()

remindmodel · Feb 27, 2024 · 686c6b5 · 686c6b5
1 parent 3b7f82f
commit 686c6b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/start/configureCfg.R b/scripts/start/configureCfg.R
@@ -38,7 +38,7 @@ configureCfg <- function(icfg, iscen, iscenarios, verboseGamsCompile = TRUE) {
 
     # Set reporting script
     if ("output" %in% names(iscenarios) && ! is.na(iscenarios[iscen, "output"])) {
-      scenoutput <- gsub('c\\("|\\)|"', '', trimws(strsplit(iscenarios[iscen, "output"],',')[[1]]))
+      scenoutput <- gsub('c\\("|\\)|"', '', trimws(unlist(strsplit(iscenarios[iscen, "output"], split = ','))))
       icfg$output <- unique(c(if ("cfg$output" %in% scenoutput) icfg$output, setdiff(scenoutput, "cfg$output")))
     }