From 3153a3371f455a246568b7fb3414e6f028a22c2a Mon Sep 17 00:00:00 2001 From: David LeBauer Date: Wed, 16 Sep 2026 11:16:10 -0700 Subject: [PATCH] collapse to handle vectors --- models/sipnet/R/expand_string_templates.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/models/sipnet/R/expand_string_templates.R b/models/sipnet/R/expand_string_templates.R index 1f167f8daa..49aacafb5d 100644 --- a/models/sipnet/R/expand_string_templates.R +++ b/models/sipnet/R/expand_string_templates.R @@ -34,15 +34,15 @@ expand_string_templates <- function( settings, ..., HOST_SETUP = paste( - paste(settings$model$prerun, sep = "\n"), - paste(settings$host$prerun, sep = "\n"), + paste(settings$model$prerun, collapse = "\n"), + paste(settings$host$prerun, collapse = "\n"), "", sep = "\n" ), - CDO_SETUP = paste(settings$host$cdosetup, "", sep = "\n"), + CDO_SETUP = paste(settings$host$cdosetup, "", collapse = "\n"), HOST_TEARDOWN = paste( - paste(settings$model$postrun, sep = "\n"), - paste(settings$host$postrun, sep = "\n"), + paste(settings$model$postrun, collapse = "\n"), + paste(settings$host$postrun, collapse = "\n"), "", sep = "\n" ),