Use writeLines, flexible regex for spaces

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