Running 'testthat.R' [70s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(jtools)
  > 
  > 
  > test_check("jtools")
  Failed with error:  'there is no package called 'brms''
  Failed with error:  'there is no package called 'rstanarm''
  -- 1. Error: jsumm: partial correlations work (@test-jsumm.R#92)  --------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fit, part.corr = TRUE))) at testthat/test-jsumm.R:92
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fit, part.corr = TRUE))
  11: print.summ.lm(summ(fit, part.corr = TRUE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 2. Error: jsumm: svyglm CIs work (@test-jsumm.R#144)  -----------------------
  could not find function "isFALSE"
  1: expect_output(print(summ(regmodel, confint = TRUE))) at testthat/test-jsumm.R:144
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(regmodel, confint = TRUE))
  11: print.summ.svyglm(summ(regmodel, confint = TRUE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 3. Error: jsumm: svyglm dropping pvals works (@test-jsumm.R#149)  -----------
  could not find function "isFALSE"
  1: expect_output(print(summ(regmodel, pvals = FALSE))) at testthat/test-jsumm.R:149
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(regmodel, pvals = FALSE))
  11: print.summ.svyglm(summ(regmodel, pvals = FALSE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 4. Error: jsumm: svyglm odds ratios (@test-jsumm.R#155)  --------------------
  could not find function "isFALSE"
  1: expect_output(print(summ(regmodel, exp = T))) at testthat/test-jsumm.R:155
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(regmodel, exp = T))
  11: print.summ.svyglm(summ(regmodel, exp = T))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 5. Error: jsumm: merMod CIs work (@test-jsumm.R#168)  -----------------------
  could not find function "isFALSE"
  1: expect_output(print(s)) at testthat/test-jsumm.R:168
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(s)
  11: print.summ.merMod(s)
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 6. Error: jsumm: merMod dropping pvals works (@test-jsumm.R#175)  -----------
  could not find function "isFALSE"
  1: expect_output(print(s)) at testthat/test-jsumm.R:175
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(s)
  11: print.summ.merMod(s)
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 7. Error: summ: all merMod p-value calculation options work (@test-jsumm.R#18
  could not find function "isFALSE"
  1: expect_output(print(s)) at testthat/test-jsumm.R:182
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(s)
  11: print.summ.merMod(s)
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 8. Error: jsumm: lm CIs work (@test-jsumm.R#202)  ---------------------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fit, confint = TRUE))) at testthat/test-jsumm.R:202
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fit, confint = TRUE))
  11: print.summ.lm(summ(fit, confint = TRUE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 9. Error: jsumm: glm CIs work (@test-jsumm.R#207)  --------------------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fitgf, confint = TRUE))) at testthat/test-jsumm.R:207
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fitgf, confint = TRUE))
  11: print.summ.glm(summ(fitgf, confint = TRUE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 10. Error: jsumm: lm dropping pvals works (@test-jsumm.R#212)  --------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fit, pvals = FALSE))) at testthat/test-jsumm.R:212
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fit, pvals = FALSE))
  11: print.summ.lm(summ(fit, pvals = FALSE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 11. Error: jsumm: glm dropping pvals works (@test-jsumm.R#217)  -------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fitgf, pvals = FALSE))) at testthat/test-jsumm.R:217
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fitgf, pvals = FALSE))
  11: print.summ.glm(summ(fitgf, pvals = FALSE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 12. Error: jsumm: lm robust SEs work (@test-jsumm.R#238)  -------------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fit, robust = "HC4m"))) at testthat/test-jsumm.R:238
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fit, robust = "HC4m"))
  11: print.summ.lm(summ(fit, robust = "HC4m"))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 13. Error: jsumm: lm partial corrs works (@test-jsumm.R#243)  ---------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fit, part.corr = T))) at testthat/test-jsumm.R:243
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fit, part.corr = T))
  11: print.summ.lm(summ(fit, part.corr = T))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 14. Error: jsumm: glm robust SEs work (@test-jsumm.R#252)  ------------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fitgf, robust = "HC4m"))) at testthat/test-jsumm.R:252
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fitgf, robust = "HC4m"))
  11: print.summ.glm(summ(fitgf, robust = "HC4m"))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 15. Error: jsumm: lm cluster-robust SEs work (@test-jsumm.R#257)  -----------
  could not find function "isFALSE"
  1: expect_output(print(summ(fit, robust = "HC3", cluster = "Population"))) at testthat/test-jsumm.R:257
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fit, robust = "HC3", cluster = "Population"))
  11: print.summ.lm(summ(fit, robust = "HC3", cluster = "Population"))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 16. Error: jsumm: glm cluster-robust SEs work (@test-jsumm.R#263)  ----------
  could not find function "isFALSE"
  1: expect_output(print(summ(fitgf, robust = T, cluster = clusters))) at testthat/test-jsumm.R:263
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fitgf, robust = T, cluster = clusters))
  11: print.summ.glm(summ(fitgf, robust = T, cluster = clusters))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  -- 17. Error: jsumm: Printing isn't borked (@test-jsumm.R#269)  ----------------
  could not find function "isFALSE"
  1: expect_output(print(summ(fitgf, scale = TRUE))) at testthat/test-jsumm.R:269
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(summ(fitgf, scale = TRUE))
  11: print.summ.glm(summ(fitgf, scale = TRUE))
  12: print(md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits))
  13: md_table(ctable, format = getOption("summ.table.format", "multiline"), sig.digits = FALSE, 
         digits = x$digits)
  
  == testthat results  ===========================================================
  OK: 296 SKIPPED: 0 FAILED: 17
  1. Error: jsumm: partial correlations work (@test-jsumm.R#92) 
  2. Error: jsumm: svyglm CIs work (@test-jsumm.R#144) 
  3. Error: jsumm: svyglm dropping pvals works (@test-jsumm.R#149) 
  4. Error: jsumm: svyglm odds ratios (@test-jsumm.R#155) 
  5. Error: jsumm: merMod CIs work (@test-jsumm.R#168) 
  6. Error: jsumm: merMod dropping pvals works (@test-jsumm.R#175) 
  7. Error: summ: all merMod p-value calculation options work (@test-jsumm.R#182) 
  8. Error: jsumm: lm CIs work (@test-jsumm.R#202) 
  9. Error: jsumm: glm CIs work (@test-jsumm.R#207) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted