writeLines handling

stan-dev · Mar 3, 2023 · 1b11131 · 1b11131
1 parent 498536c
commit 1b11131
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rstan_config.R b/R/rstan_config.R
@@ -180,7 +180,7 @@ rstan_config <- function(pkgdir = ".") {
       (utils::packageVersion('rstan') < 2.29)) {
     mod <- readLines(file_name)
     if (!any(grepl("\\bfunctions(\\s*|)\\{", mod))) {
-      writeLines("functions {", mod, "}", sep = "\n", con = file_name)
+      writeLines(c("functions {", mod, "}"), sep = "\n", con = file_name)
     }
   }
   stanc_ret <- rstan::stanc(file_name, allow_undefined = TRUE,