Running 'testthat.R' [19s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(clinicalsignificance)
  > 
  > test_check("clinicalsignificance")
  [ FAIL 1 | WARN 0 | SKIP 10 | PASS 83 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (10)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-prep_data.R:26:1): (code run outside of `test_that()`) ──────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─... %>% purrr::pluck("wide") at test-prep_data.R:26:0
    2. ├─purrr::pluck(., "wide")
    3. └─clinicalsignificance:::.prep_data(., subject, time, gds)
    4.   └─rlang::inform(...)
    5.     ├─base::withRestarts(...)
    6.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
    7.     │   └─base (local) doWithOneRestart(return(expr), restart)
    8.     └─base::signalCondition(cnd)
    9.       ├─base::conditionMessage(cond)
   10.       └─rlang:::conditionMessage.rlang_message(cond)
   11.         └─rlang::cnd_message(c)
   12.           └─rlang:::cnd_message_format(cnd, ...)
   13.             └─rlang (local) cli_format(glue_escape(lines))
   14.               └─rlang:::.rlang_cli_format(x, cli::format_message)
   15.                 └─cli::cli_format(x, .envir = emptyenv())
   16.                   └─cli:::fmt(...)
   17.                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   18.                       ├─base::do.call(app[[msg$type]], msg$args)
   19.                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3", class = NULL)
   20.                         └─cli:::clii_bullets(app, text, id, class)
   21.                           └─base::lapply(...)
   22.                             └─cli (local) FUN(X[[i]], ...)
   23.                               └─app$text(text[[i]])
   24.                                 └─cli:::clii_text(app, text)
   25.                                   └─app$xtext(text)
   26.                                     └─cli:::clii__xtext(...)
   27.                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   28.                                         └─base::lapply(pars, ansi_trimws)
   29.                                           └─cli (local) FUN(X[[i]], ...)
  
  [ FAIL 1 | WARN 0 | SKIP 10 | PASS 83 ]
  Deleting unused snapshots:
  • check_cutoff/manual-cutoff-a.svg
  • check_cutoff/manual-cutoff-b.svg
  • check_cutoff/manual-cutoff-c.svg
  • plot/base-plot-en.svg
  • plot/base-plot-gln.svg
  • plot/base-plot-ha.svg
  • plot/base-plot-hll.svg
  • plot/base-plot-nk.svg
  • plot/eb-slopes-grouped.svg
  • plot/eb-slopes-ungrouped.svg
  • plot/trajectories-grouped.svg
  Error: Test failures
  Execution halted