Running examples in 'jstable-Ex.R' failed
The error most likely occurred in:

> ### Name: TableSubgroupCox
> ### Title: TableSubgroupCox: Sub-group analysis table for Cox/svycox model.
> ### Aliases: TableSubgroupCox
> 
> ### ** Examples
> 
> library(survival);library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> lung %>% 
+   mutate(status = as.integer(status == 1),
+          sex = factor(sex),
+          kk = factor(as.integer(pat.karno >= 70))) -> lung
> TableSubgroupCox(Surv(time, status) ~ sex, data = lung, time_eventrate = 100)
  Variable Count Percent Point Estimate Lower Upper 1   2 P value
1  Overall   228     100           1.91  1.14   3.2 0 1.2   0.014
  P for interaction
1                NA
> TableSubgroupCox(Surv(time, status) ~ sex, var_subgroup = "kk", data = lung, 
+                  time_eventrate = 100)
   Variable Count Percent Point Estimate Lower Upper    1    2 P value
1        kk  <NA>    <NA>           <NA>  <NA>  <NA> <NA> <NA>    <NA>
0         0    38    16.9           2.88  0.31 26.49    0    0    0.35
11        1   187    83.1           1.84  1.08  3.14    0  1.5   0.026
   P for interaction
1              0.525
0               <NA>
11              <NA>
> 
> ## survey design
> library(survey)
Loading required package: grid
Loading required package: Matrix

Attaching package: 'survey'

The following object is masked from 'package:graphics':

    dotchart

> data.design <- svydesign(id = ~1, data = lung)
Warning in svydesign.default(id = ~1, data = lung) :
  No weights or probabilities supplied, assuming equal probability
> TableSubgroupCox(Surv(time, status) ~ sex, data = data.design, time_eventrate = 100)
Independent Sampling design (with replacement)
svydesign(id = ~1, data = lung)
  Variable Count Percent Point Estimate Lower Upper 1   2 P value
1  Overall   228     100           1.91  1.14  3.19 0 1.2   0.013
  P for interaction
1                NA
> TableSubgroupCox(Surv(time, status) ~ sex, var_subgroup = "kk", data = data.design,
+                  time_eventrate = 100)
Independent Sampling design (with replacement)
svydesign(id = ~1, data = lung)
Error in `dplyr::bind_cols()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─jstable::TableSubgroupCox(...)
  2. │ └─purrr::map(res.kap, mkz) %>% dplyr::bind_cols() %>% t
  3. ├─base::t(.)
  4. ├─dplyr::bind_cols(.)
  5. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
  6. │ │ └─base::withCallingHandlers(...)
  7. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
  8. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
  9. │ └─rlang::names_inform_repair(orig_names, names)
 10. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
 11. │     ├─base::withRestarts(...)
 12. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 13. │     │   └─base (local) doWithOneRestart(return(expr), restart)
 14. │     └─base::signalCondition(cnd)
 15. │       ├─base::conditionMessage(cond)
 16. │       └─rlang:::conditionMessage.rlang_message(cond)
 17. │         └─rlang::cnd_message(c)
 18. │           └─rlang:::cnd_message_format(cnd, ...)
 19. │             └─rlang (local) cli_format(glue_escape(lines))
 20. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
 21. │                 └─cli::cli_format(x, .envir = emptyenv())
 22. │                   └─cli:::fmt(...)
 23. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
 24. │                       ├─base::do.call(app[[msg$type]], msg$args)
 25. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-30", class = NULL)
 26. │                         └─cli:::clii_bullets(app, text, id, class)
 27. │                           └─base::lapply(...)
 28. │                             └─cli (local) FUN(X[[i]], ...)
 29. │                               └─app$text(text[[i]])
 30. │                                 └─cli:::clii_text(app, text)
 31. │                                   └─app$xtext(text)
 32. │                                     └─cli:::clii__xtext(...)
 33. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
 34. │                                         └─base::lapply(pars, ansi_trimws)
 35. │                                           └─cli (local) FUN(X[[i]], ...)
 36. └─base::.handleSimpleError(...)
 37.   └─dplyr (local) h(simpleError(msg, call))
 38.     └─rlang::cnd_signal(cnd)
Execution halted