From 686c6b527bd4a2b5fc6ac84169388b6e23655047 Mon Sep 17 00:00:00 2001 From: David Klein Date: Tue, 27 Feb 2024 12:23:48 +0100 Subject: [PATCH] Replace selecting via [[1]] by unlist() --- scripts/start/configureCfg.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/start/configureCfg.R b/scripts/start/configureCfg.R index 61d09e210..aa1e58e8c 100644 --- 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"))) }