Running ‘testthat.R’ [17s/17s]
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))
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-svyCreateTableOne.R:10:3): Run SvyCreateOneTableJS ──────────────
  Error: non-numeric argument to mathematical function
  Backtrace:
       █
    1. ├─testthat::expect_is(...) test-svyCreateTableOne.R:10:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─jstable::svyCreateTableOneJS(...)
    5.   ├─base::print(...)
    6.   └─tableone:::print.TableOne(...)
    7.     └─tableone:::ModuleFormatTables(...)
    8.       └─base::sapply(...)
    9.         └─base::lapply(X = X, FUN = FUN, ...)
   10.           └─tableone:::FUN(X[[i]], ...)
   11.             ├─base::print(...)
   12.             └─tableone:::print.svyContTable(...)
   13.               └─base::sapply(...)
   14.                 └─base::lapply(X = X, FUN = FUN, ...)
   15.                   └─tableone:::FUN(X[[i]], ...)
  
  [ FAIL 1 | WARN 4 | SKIP 0 | PASS 59 ]
  Error: Test failures
  Execution halted