1## examples for eval lookup 2testthat::skip_on_cran() 3 4if (require(car)) { 5 test_that("infIndexPlot env lookup OK", { 6 fm1 <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy) 7 ## silly test; the point is to see if this errors out with 8 ## Error in as.list.environment(X[[i]], ...) : 9 ## promise already under evaluation: recursive default argument reference or earlier problems? 10 ## Calls: infIndexPlot -> influence -> influence.merMod -> lapply -> FUN 11 expect_equal(car::infIndexPlot(influence(fm1, "Subject")), NULL) 12 }) 13} 14 15if (require(rr2)) { 16 test_that("rr2 env lookup OK", { 17 ## Error under alternate eval lookup 18 ## Error: bad 'data': object 'd' not found 19 20 set.seed(123456) 21 p1 <- 10; nsample <- 20; n <- p1 * nsample 22 d <- data.frame(x1 = rnorm(n = n), 23 x2 = rnorm(n = n), 24 u1 = rep(1:p1, each = nsample), 25 u2 = rep(1:p1, times = nsample)) 26 d$u1 <- as.factor(d$u1); d$u2 <- as.factor(d$u2) 27 28 ## LMM: y with random intercept 29 b1 <- 1; b2 <- -1; sd1 <- 1.5 30 d$y_re_intercept <- b1 * d$x1 + b2 * d$x2 + 31 rep(rnorm(n = p1, sd = sd1), each = nsample) + # random intercept u1 32 rep(rnorm(n = p1, sd = sd1), times = nsample) + # random intercept u2 33 rnorm(n = n) 34 35 z.f2 <- lme4::lmer(y_re_intercept ~ x1 + x2 + (1 | u1) + (1 | u2), data = d, REML = T) 36 ## NOTE, fails to produce warnings on second run of devtools::test() 37 ## (possible interference from lmerTest methods being loaded ...?) 38 expect_warning(R2(z.f2), "mod updated with REML = F") 39}) 40} 41 42 43if (suppressWarnings(require(semEff))) { 44 ## suppress warning about 'cov2cor' import replacement 45 test_that("semEff env lookup OK", { 46 ## Error in as.list.environment(X[[i]], ...) : 47 ## promise already under evaluation: recursive default argument reference or earlier problems? 48 ## Calls: VIF ... update.merMod -> do.call -> lapply -> FUN -> as.list.environment 49 m <- Shipley.Growth[[3]] 50 expect_equal(VIF(m), 51 c(Date = 6.06283840168881, 52 DD = 6.07741017455859, lat = 1.01215136160858) 53 ) 54 }) 55} 56