Fix a regular expression introduced by PR #393.

stan-dev · Mar 22, 2023 · 6c8dcf7 · 6c8dcf7
1 parent 9a7b567
commit 6c8dcf7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/formula.R b/R/formula.R
@@ -131,7 +131,7 @@ parse_additive_terms <- function(terms) {
   smooth <- unlist(lapply(smooth_terms, function(st) {
     grep(make_function_regexp(st), terms, value = TRUE)
   }))
-  if (any(grepl("\\(.+,.+=.+\\)", smooth))) {
+  if (any(grepl("\\(.+,.*=.+\\)", smooth))) {
     stop("In s() and t2() terms, arguments other than predictors are not ",
          "allowed.")
   }