Running ‘testthat.R’ [79s/111s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(finalfit)
  > 
  > test_check("finalfit")
  [ FAIL 14 | WARN 20 | SKIP 0 | PASS 117 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_all_in_one.R:8:2'): finalfit.lmer with metrics gives data.frame ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:8:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(colon_s, "nodes", "age.factor", random_effect = "hospital")
    5.   ├─base::do.call(finalfit.lm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.lmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.lmerMod(...)
   12.         ├─stats::pnorm(abs(summary(x)$coefficients[, 3]))
   13.         ├─base::summary(x)
   14.         └─lme4:::summary.merMod(x)
   15.           ├─nlme::VarCorr(object)
   16.           └─lme4:::VarCorr.merMod(object)
   17.             ├─base::structure(...)
   18.             └─lme4::mkVarCorr(...)
   19.               └─base::lapply(...)
   20.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:16:2'): finalfit mixed with metrics gives data.frame ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:16:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(colon_s, "mort_5yr", "age.factor", random_effect = "hospital")
    5.   ├─base::do.call(finalfit.glm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.glmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.glmerMod(...)
   12.         ├─base::summary(x)
   13.         └─lme4:::summary.merMod(x)
   14.           ├─nlme::VarCorr(object)
   15.           └─lme4:::VarCorr.merMod(object)
   16.             ├─base::structure(...)
   17.             └─lme4::mkVarCorr(...)
   18.               └─base::lapply(...)
   19.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:40:2'): finalfit.lmer with metrics gives data.frame ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:40:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.lm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.lmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.lmerMod(...)
   12.         ├─stats::pnorm(abs(summary(x)$coefficients[, 3]))
   13.         ├─base::summary(x)
   14.         └─lme4:::summary.merMod(x)
   15.           ├─nlme::VarCorr(object)
   16.           └─lme4:::VarCorr.merMod(object)
   17.             ├─base::structure(...)
   18.             └─lme4::mkVarCorr(...)
   19.               └─base::lapply(...)
   20.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:43:2'): finalfit.lmer with metrics gives data.frame ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:43:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.lm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.lmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.lmerMod(...)
   12.         ├─stats::pnorm(abs(summary(x)$coefficients[, 3]))
   13.         ├─base::summary(x)
   14.         └─lme4:::summary.merMod(x)
   15.           ├─nlme::VarCorr(object)
   16.           └─lme4:::VarCorr.merMod(object)
   17.             ├─base::structure(...)
   18.             └─lme4::mkVarCorr(...)
   19.               └─base::lapply(...)
   20.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:51:2'): finalfit mixed with metrics gives data.frame ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:51:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.glm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.glmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.glmerMod(...)
   12.         ├─base::summary(x)
   13.         └─lme4:::summary.merMod(x)
   14.           ├─nlme::VarCorr(object)
   15.           └─lme4:::VarCorr.merMod(object)
   16.             ├─base::structure(...)
   17.             └─lme4::mkVarCorr(...)
   18.               └─base::lapply(...)
   19.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:59:2'): finalfit mixed with metrics gives data.frame ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:59:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.glm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.glmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.glmerMod(...)
   12.         ├─base::summary(x)
   13.         └─lme4:::summary.merMod(x)
   14.           ├─nlme::VarCorr(object)
   15.           └─lme4:::VarCorr.merMod(object)
   16.             ├─base::structure(...)
   17.             └─lme4::mkVarCorr(...)
   18.               └─base::lapply(...)
   19.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:81:2'): finalfit.lmer with metrics gives list ─────
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:81:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.lm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.lmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.lmerMod(...)
   12.         ├─stats::pnorm(abs(summary(x)$coefficients[, 3]))
   13.         ├─base::summary(x)
   14.         └─lme4:::summary.merMod(x)
   15.           ├─nlme::VarCorr(object)
   16.           └─lme4:::VarCorr.merMod(object)
   17.             ├─base::structure(...)
   18.             └─lme4::mkVarCorr(...)
   19.               └─base::lapply(...)
   20.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:89:2'): finalfit mixed with metrics gives list ────
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:89:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.glm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.glmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.glmerMod(...)
   12.         ├─base::summary(x)
   13.         └─lme4:::summary.merMod(x)
   14.           ├─nlme::VarCorr(object)
   15.           └─lme4:::VarCorr.merMod(object)
   16.             ├─base::structure(...)
   17.             └─lme4::mkVarCorr(...)
   18.               └─base::lapply(...)
   19.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:106:2'): finalfit.lmer with metrics gives list ────
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:106:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.lm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.lmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.lmerMod(...)
   12.         ├─stats::pnorm(abs(summary(x)$coefficients[, 3]))
   13.         ├─base::summary(x)
   14.         └─lme4:::summary.merMod(x)
   15.           ├─nlme::VarCorr(object)
   16.           └─lme4:::VarCorr.merMod(object)
   17.             ├─base::structure(...)
   18.             └─lme4::mkVarCorr(...)
   19.               └─base::lapply(...)
   20.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_all_in_one.R:114:2'): finalfit mixed with metrics gives list ───
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:114:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─finalfit::finalfit(...)
    5.   ├─base::do.call(finalfit.glm, args)
    6.   └─finalfit (local) `<fn>`(...)
    7.     ├─base::do.call(...)
    8.     ├─finalfit (local) `<fn>`(...)
    9.     └─finalfit:::fit2df.glmerMod(...)
   10.       ├─finalfit::extract_fit(...)
   11.       └─finalfit:::extract_fit.glmerMod(...)
   12.         ├─base::summary(x)
   13.         └─lme4:::summary.merMod(x)
   14.           ├─nlme::VarCorr(object)
   15.           └─lme4:::VarCorr.merMod(object)
   16.             ├─base::structure(...)
   17.             └─lme4::mkVarCorr(...)
   18.               └─base::lapply(...)
   19.                 └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_ff_metrics.R:15:2'): ff_metrics glmerMod ───────────────────────
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_ff_metrics.R:15:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% ff_metrics()
    5. ├─finalfit::ff_metrics(.)
    6. └─finalfit:::ff_metrics.glmerMod(.)
    7.   ├─base::summary(x)
    8.   └─lme4:::summary.merMod(x)
    9.     ├─nlme::VarCorr(object)
   10.     └─lme4:::VarCorr.merMod(object)
   11.       ├─base::structure(...)
   12.       └─lme4::mkVarCorr(...)
   13.         └─base::lapply(...)
   14.           └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_ff_metrics.R:32:2'): ff_metrics lmermixed ──────────────────────
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_ff_metrics.R:32:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─lmmixed(colon_s, "nodes", "age.factor", "hospital") %>% ...
    5. ├─finalfit::ff_metrics(.)
    6. └─finalfit:::ff_metrics.lmerMod(.)
    7.   ├─base::summary(x)
    8.   └─lme4:::summary.merMod(x)
    9.     ├─nlme::VarCorr(object)
   10.     └─lme4:::VarCorr.merMod(object)
   11.       ├─base::structure(...)
   12.       └─lme4::mkVarCorr(...)
   13.         └─base::lapply(...)
   14.           └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_modelwrappers.R:65:2'): fit2df(glmmixed, metrics=TRUE) gives list ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_modelwrappers.R:65:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% fit2df(metrics = TRUE)
    5. ├─finalfit::fit2df(., metrics = TRUE)
    6. └─finalfit:::fit2df.glmerMod(., metrics = TRUE)
    7.   ├─finalfit::extract_fit(...)
    8.   └─finalfit:::extract_fit.glmerMod(...)
    9.     ├─base::summary(x)
   10.     └─lme4:::summary.merMod(x)
   11.       ├─nlme::VarCorr(object)
   12.       └─lme4:::VarCorr.merMod(object)
   13.         ├─base::structure(...)
   14.         └─lme4::mkVarCorr(...)
   15.           └─base::lapply(...)
   16.             └─lme4 (local) FUN(X[[i]], ...)
  ── Error ('test_modelwrappers.R:87:2'): fit2df(lmmixed, metrics=TRUE) gives list ──
  Error in `tcrossprod(sc * Li)`: "tcrossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_modelwrappers.R:87:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% fit2df(metrics = TRUE)
    5. ├─finalfit::fit2df(., metrics = TRUE)
    6. └─finalfit:::fit2df.lmerMod(., metrics = TRUE)
    7.   ├─finalfit::extract_fit(...)
    8.   └─finalfit:::extract_fit.lmerMod(...)
    9.     ├─stats::pnorm(abs(summary(x)$coefficients[, 3]))
   10.     ├─base::summary(x)
   11.     └─lme4:::summary.merMod(x)
   12.       ├─nlme::VarCorr(object)
   13.       └─lme4:::VarCorr.merMod(object)
   14.         ├─base::structure(...)
   15.         └─lme4::mkVarCorr(...)
   16.           └─base::lapply(...)
   17.             └─lme4 (local) FUN(X[[i]], ...)
  
  [ FAIL 14 | WARN 20 | SKIP 0 | PASS 117 ]
  Error: Test failures
  Execution halted