Running 'testthat.R' [31s]
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)
  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) == .)
  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) == .)
  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) == .)
  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) == .)
  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) == .)
  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))
  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))
  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))