Update scripts/output/export/xlsx_IIASA.R

Co-authored-by: orichters <90761609+orichters@users.noreply.github.com>
remindmodel · Sep 17, 2024 · 7059c3d · 7059c3d
1 parent 4c36433
commit 7059c3d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/scripts/output/export/xlsx_IIASA.R b/scripts/output/export/xlsx_IIASA.R
@@ -139,12 +139,12 @@ withCallingHandlers({ # piping messages to logFile
   }
 
   mifdata$scenario <- gsub("^C_", "", mifdata$scenario)
-  message("Old names: ", sort(unique(mifdata$scenario)))
+  message("Old names: ", paste(sort(unique(mifdata$scenario)), collapse = ", "))
   for (i in names(renameScen)) {
     message("Rename scenario: ", i, " -> ", renameScen[[i]])
     mifdata$scenario[i == mifdata$scenario] <- renameScen[[i]]
   }
-  message("New names: ", sort(unique(mifdata$scenario)))
+  message("New names: ", paste(sort(unique(mifdata$scenario)), collapse = ", "))
 
   message("# ", length(temporarydelete), " variables are in the list to be temporarily deleted, ",
           length(unique(mifdata$variable[mifdata$variable %in% temporarydelete])), " were deleted.")