Running ‘testthat.R’ [28s/42s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(jstable)
  > 
  > test_check("jstable")
  Independent Sampling design (with replacement)
  svydesign(id = ~1, data = lung)
  Independent Sampling design (with replacement)
  svydesign(id = ~1, data = lung)
  Independent Sampling design (with replacement)
  svydesign(id = ~1, data = lung)
  Independent Sampling design (with replacement)
  subset(data, get(var_subgroup) == .)
  Independent Sampling design (with replacement)
  subset(data, get(var_subgroup) == .)
  Independent Sampling design (with replacement)
  svydesign(id = ~1, data = lung)
  Independent Sampling design (with replacement)
  subset(data, get(var_subgroup) == .)
  Independent Sampling design (with replacement)
  svydesign(id = ~1, data = lung)
  Independent Sampling design (with replacement)
  svydesign(id = ~1, data = lung)
  Independent Sampling design (with replacement)
  subset(data, get(var_subgroup) == .)
  Independent Sampling design (with replacement)
  subset(data, get(var_subgroup) == .)
  Independent Sampling design (with replacement)
  svydesign(id = ~1, data = lung)
  Independent Sampling design (with replacement)
  subset(data, get(var_subgroup) == .)
  ── 1. Error: LabeljsTable (@test-label.R#18)  ──────────────────────────────────
  <text>:1:37: unexpected symbol
  1: Surv(time, status)~sex + (1 | inst) Surv
                                          ^
  1: coxme.display(fit) at testthat/test-label.R:18
  2: lapply(xf, function(x) {
         coxmeTable(coxme(as.formula(paste(formula.surv, "~", x, " + ", formula.ranef, 
             sep = "")), data = mdata))
     })
  3: FUN(X[[i]], ...)
  4: coxmeTable(coxme(as.formula(paste(formula.surv, "~", x, " + ", formula.ranef, sep = "")), 
         data = mdata))
  5: coxme(as.formula(paste(formula.surv, "~", x, " + ", formula.ranef, sep = "")), data = mdata)
  6: subbar(formula)
  7: as.formula(paste(formula.surv, "~", x, " + ", formula.ranef, sep = ""))
  8: formula(object, env = baseenv())
  9: formula.character(object, env = baseenv())
  10: str2lang(x)
  
  Stratified Independent Sampling design (with replacement)
  dpbc <- survey::svydesign(id=~1, prob=~randprob, strata=~edema, data=subset(pbc,randomized))
  Stratified Independent Sampling design (with replacement)
  dpbc <- survey::svydesign(id=~1, prob=~randprob, strata=~edema, data=subset(pbc,randomized))
  Stratified Independent Sampling design (with replacement)
  dpbc <- survey::svydesign(id=~1, prob=~randprob, strata=~edema, data=subset(pbc,randomized))
  Stratified Independent Sampling design (with replacement)
  dpbc <- survey::svydesign(id=~1, prob=~randprob, strata=~edema, data=subset(pbc,randomized))
  Stratified Independent Sampling design (with replacement)
  dpbc <- survey::svydesign(id=~1, prob=~randprob, strata=~edema, data=subset(pbc,randomized))
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 63 SKIPPED: 0 FAILED: 1
  1. Error: LabeljsTable (@test-label.R#18) 
  
  Error: testthat unit tests failed
  Execution halted