Running 'testthat.R' [46s/43s]
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: LabeljsCox (@test-label.R#27)  ------------------------------------
  non-numeric argument to mathematical function
  Backtrace:
   1. jstable::cox2.display(fit)
   3. jstable:::coxExp(uni.res, dec = dec)
   4. base::paste(...)
  
  -- 2. Error: Run cox2.display (@test-regtable.R#18)  ---------------------------
  non-numeric argument to mathematical function
  Backtrace:
   1. testthat::expect_is(cox2.display(fit1), "list")
   4. jstable::cox2.display(fit1)
   6. jstable:::coxExp(uni.res, dec = dec)
   7. base::paste(...)
  
  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: 57 | SKIPPED: 0 | WARNINGS: 7 | FAILED: 2 ]
  1. Error: LabeljsCox (@test-label.R#27) 
  2. Error: Run cox2.display (@test-regtable.R#18) 
  
  Error: testthat unit tests failed
  Execution halted