Trap error when trying to use formula function in random effect

Author: kenkellner

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: nimbleMacros
-Version: 0.1.1
-Date: 2025-03-10
+Version: 0.1.1.9001
+Date: 2025-06-23
 Title: Macros Generating 'nimble' Code
 Authors@R: c(person("Ken", "Kellner", email="contact@kenkellner.com", 
                     role=c("cre","aut")),

R/LINPRED.R

@@ -370,6 +370,9 @@ createRandomComponents <- function(formula){
   rand <- reformulas::findbars(formula)
   if(length(rand) == 0) return(NULL)
   components <- lapply(rand, function(x){
+    if(grepl("(", safeDeparse(x), fixed=TRUE)){ # is this a function component?
+      stop("Formula functions not supported in random effects", call.=FALSE)
+    }
     out <- createBlankComponent("formulaComponentRandom")
     out$lang <- x
     out

tests/testthat/test_formulaHandlers.R

@@ -17,6 +17,8 @@ test_that("Error when function in formula is unsupported", {
   code <- quote(y[1:n] <- LINPRED(~x3 + test(x[1:10]), priors=NULL))
   expect_error(LINPRED$process(code, modelInfo=modInfo, .env=environment()), "No formula handler")
 
+  code <- quote(y[1:n] <- LINPRED(~x3 + (0 + scale(x3) | x2), priors=NULL))
+  expect_error(LINPRED$process(code, modelInfo=modInfo, .env=environment()), "not supported in random effects")
 })
 
 test_that("offset formula handler works", {