Minor readability and efficiency improvement.

fweber144 · Mar 6, 2023 · f1c661c · f1c661c
1 parent 8b76d6c
commit f1c661c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/formula.R b/R/formula.R
@@ -106,7 +106,7 @@ parse_additive_terms <- function(terms) {
     stop("te() and ti() terms are not supported, please use t2() instead.")
   }
   smooth <- unname(unlist(sapply(smooth_terms, function(et) {
-    terms[grep(make_function_regexp(et), terms)]
+    grep(make_function_regexp(et), terms, value = TRUE)
   })))
   return(smooth)
 }