Running ‘testthat.R’ [27s/27s]
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) == .)
  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))
  ── 1. Error: Run svycox.display (@test-regtable.R#47)  ─────────────────────────
  undefined columns selected
  Backtrace:
   1. testthat::expect_is(svycox.display(model), "list")
   4. jstable::svycox.display(model)
   6. jstable:::coxExp(uni.res, dec = decimal)
   8. base::`[.data.frame`(cox.coef, , "p")
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 59 | SKIPPED: 0 | WARNINGS: 5 | FAILED: 1 ]
  1. Error: Run svycox.display (@test-regtable.R#47) 
  
  Error: testthat unit tests failed
  Execution halted