Running ‘test-interval-timeSplitter.R’ [9s/10s]
  Running ‘test-nonlin_4_coxph.R’ [9s/11s]
  Running ‘testthat.R’ [31s/40s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(Greg)
  Loading required package: forestplot
  Loading required package: grid
  Loading required package: magrittr
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  Loading required package: checkmate
  Loading required package: Gmisc
  Loading required package: Rcpp
  Loading required package: htmlTable
  > 
  > test_check("Greg")
  ── 1. Error: Check regular lm (@test-forestplotCombineRegrObj.R#24)  ───────────
  STRING_ELT() can only be applied to a 'character vector', not a 'builtin'
  1: forestplotCombineRegrObj(regr.obj = list(fit1, fit2), variablesOfInterest.regexp = "(x2|x3)", 
         reference.names = c("First model", "Second model"), new_page = TRUE) at testthat/test-forestplotCombineRegrObj.R:24
  2: forestplot(rn, xlim = c(0, 10), mean = t.coef, lower = t.low, upper = t.high, is.summary = is.summary, 
         zero = zero, xlab = xlab, xlog = xlog, ...)
  3: forestplot.default(rn, xlim = c(0, 10), mean = t.coef, lower = t.low, upper = t.high, 
         is.summary = is.summary, zero = zero, xlab = xlab, xlog = xlog, ...)
  4: assert_class(txt_gp, "fpTxtGp")
  5: checkClass(x, classes, ordered, null.ok)
  6: qassert(classes, "S+")
  
  ── 2. Error: Basic test for coverage for forestplotRegrObj (@test-forestplotRegr
  STRING_ELT() can only be applied to a 'character vector', not a 'builtin'
  1: forestplotRegrObj(regr.obj = fit1, new_page = TRUE) at testthat/test-forestplotRegrObj.R:23
  2: forestplot(rn, mean = t.coef, lower = t.low, upper = t.high, boxsize = b_size, xlab = xlab, 
         xlog = xlog, is.summary = is.summary, zero = zero, ...)
  3: forestplot.default(rn, mean = t.coef, lower = t.low, upper = t.high, boxsize = b_size, 
         xlab = xlab, xlog = xlog, is.summary = is.summary, zero = zero, ...)
  4: assert_class(txt_gp, "fpTxtGp")
  5: checkClass(x, classes, ordered, null.ok)
  6: qassert(classes, "S+")
  
  ── 3. Error: Test rbind (@test-printCrudeAndAdjustedModel.R#90)  ───────────────
  LOGICAL() can only be applied to a 'logical', not a '...'
  1: expect_true(inherits(print(a3), "htmlTable")) at testthat/test-printCrudeAndAdjustedModel.R:90
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: inherits(print(a3), "htmlTable")
  5: print(a3)
  6: print.printCrudeAndAdjusted(a3)
  7: prPrintCAstring(x, css.rgroup, ...) %>% print
  8: eval(lhs, parent, parent)
  9: eval(lhs, parent, parent)
  10: prPrintCAstring(x, css.rgroup, ...)
  11: fastDoCall(htmlTable, call_args)
  12: eval(call, envir = args, enclos = envir)
  13: eval(call, envir = args, enclos = envir)
  14: htmlTable(x = x, rowlabel.just = rowlabel.just, rowlabel = rowlabel, align = align, 
         css.rgroup = css.rgroup, header = header, cgroup = cgroup, n.cgroup = n.cgroup, 
         rgroup = rgroup, n.rgroup = n.rgroup, tspanner = tspanner, n.tspanner = n.tspanner)
  15: htmlTable.matrix(x = x, rowlabel.just = rowlabel.just, rowlabel = rowlabel, align = align, 
         css.rgroup = css.rgroup, header = header, cgroup = cgroup, n.cgroup = n.cgroup, 
         rgroup = rgroup, n.rgroup = n.rgroup, tspanner = tspanner, n.tspanner = n.tspanner)
  16: htmlTable.default(x, total = total, ...)
  17: assert(check_matrix(css.cell), check_character(css.cell))
  18: assertChoice(combine, c("or", "and"))
  19: checkChoice(x, choices, null.ok, fmatch)
  20: qassert(null.ok, "B1")
  
  ── 4. Error: Basic test for coverage for simpleRmsAnova (@test-simpleRmsAnova.R#
  LOGICAL() can only be applied to a 'logical', not a 'complex'
  1: print(a) at testthat/test-simpleRmsAnova.R:54
  2: print.simpleRmsAnova(a)
  3: fastDoCall(ifelse(html, "htmlTable", "latex"), call_list) %>% print
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: fastDoCall(ifelse(html, "htmlTable", "latex"), call_list)
  7: eval(call, envir = args, enclos = envir)
  8: eval(call, envir = args, enclos = envir)
  9: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = x, n.rgroup = n.rgroup, rgroup = rgroup, rowlabel = rowlabel, rnames = rnames, 
         caption = caption)
  10: htmlTable.matrix(x = x, n.rgroup = n.rgroup, rgroup = rgroup, rowlabel = rowlabel, 
         rnames = rnames, caption = caption)
  11: htmlTable.default(x, total = total, ...)
  12: assert(check_matrix(css.cell), check_character(css.cell))
  13: assertChoice(combine, c("or", "and"))
  14: checkChoice(x, choices, null.ok, fmatch)
  15: qassert(null.ok, "B1")
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 281 SKIPPED: 2 FAILED: 4
  1. Error: Check regular lm (@test-forestplotCombineRegrObj.R#24) 
  2. Error: Basic test for coverage for forestplotRegrObj (@test-forestplotRegrObj.R#23) 
  3. Error: Test rbind (@test-printCrudeAndAdjustedModel.R#90) 
  4. Error: Basic test for coverage for simpleRmsAnova (@test-simpleRmsAnova.R#54) 
  
  Error: testthat unit tests failed
  Execution halted