Running 'spelling.R' [0s]
  Running 'testthat.R' [19s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(naniar)
  > 
  > test_check("naniar")
  [ FAIL 3 | WARN 0 | SKIP 32 | PASS 519 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (32)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-prop-cases-not-zero.R:10:1): (code run outside of `test_that()`) ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─naniar:::diag_na(10) at test-prop-cases-not-zero.R:10:0
    2. │ ├─... %>% set_names(paste0("x", seq_len(ncol(.))))
    3. │ ├─base::suppressMessages(tibble::as_tibble(dna, .name_repair = "unique"))
    4. │ │ └─base::withCallingHandlers(...)
    5. │ ├─tibble::as_tibble(dna, .name_repair = "unique")
    6. │ └─tibble:::as_tibble.matrix(dna, .name_repair = "unique")
    7. │   ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
    8. │   └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
    9. │     └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   10. │       └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   11. │         ├─rlang::set_names(...)
   12. │         └─tibble:::repaired_names(...)
   13. │           ├─tibble:::subclass_name_repair_errors(...)
   14. │           │ └─base::withCallingHandlers(...)
   15. │           └─vctrs::vec_as_names(...)
   16. ├─rlang::set_names(., paste0("x", seq_len(ncol(.))))
   17. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   18.   └─rlang::names_inform_repair(orig_names, names)
   19.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   20.       ├─base::withRestarts(...)
   21.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   22.       │   └─base (local) doWithOneRestart(return(expr), restart)
   23.       └─base::signalCondition(cnd)
   24.         ├─base::conditionMessage(cond)
   25.         └─rlang:::conditionMessage.rlang_message(cond)
   26.           └─rlang::cnd_message(c)
   27.             └─rlang:::cnd_message_format(cnd, ...)
   28.               └─rlang (local) cli_format(glue_escape(lines))
   29.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   30.                   └─cli::cli_format(x, .envir = emptyenv())
   31.                     └─cli:::fmt(...)
   32.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   33.                         ├─base::do.call(app[[msg$type]], msg$args)
   34.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-144", class = NULL)
   35.                           └─cli:::clii_bullets(app, text, id, class)
   36.                             └─base::lapply(...)
   37.                               └─cli (local) FUN(X[[i]], ...)
   38.                                 └─app$text(text[[i]])
   39.                                   └─cli:::clii_text(app, text)
   40.                                     └─app$xtext(text)
   41.                                       └─cli:::clii__xtext(...)
   42.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   43.                                           └─base::lapply(pars, ansi_trimws)
   44.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-prop_row.R:19:1): (code run outside of `test_that()`) ───────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─naniar:::diag_na(10) at test-prop_row.R:19:0
    2. │ ├─... %>% set_names(paste0("x", seq_len(ncol(.))))
    3. │ ├─base::suppressMessages(tibble::as_tibble(dna, .name_repair = "unique"))
    4. │ │ └─base::withCallingHandlers(...)
    5. │ ├─tibble::as_tibble(dna, .name_repair = "unique")
    6. │ └─tibble:::as_tibble.matrix(dna, .name_repair = "unique")
    7. │   ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
    8. │   └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
    9. │     └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   10. │       └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   11. │         ├─rlang::set_names(...)
   12. │         └─tibble:::repaired_names(...)
   13. │           ├─tibble:::subclass_name_repair_errors(...)
   14. │           │ └─base::withCallingHandlers(...)
   15. │           └─vctrs::vec_as_names(...)
   16. ├─rlang::set_names(., paste0("x", seq_len(ncol(.))))
   17. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   18.   └─rlang::names_inform_repair(orig_names, names)
   19.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   20.       ├─base::withRestarts(...)
   21.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   22.       │   └─base (local) doWithOneRestart(return(expr), restart)
   23.       └─base::signalCondition(cnd)
   24.         ├─base::conditionMessage(cond)
   25.         └─rlang:::conditionMessage.rlang_message(cond)
   26.           └─rlang::cnd_message(c)
   27.             └─rlang:::cnd_message_format(cnd, ...)
   28.               └─rlang (local) cli_format(glue_escape(lines))
   29.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   30.                   └─cli::cli_format(x, .envir = emptyenv())
   31.                     └─cli:::fmt(...)
   32.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   33.                         ├─base::do.call(app[[msg$type]], msg$args)
   34.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-270", class = NULL)
   35.                           └─cli:::clii_bullets(app, text, id, class)
   36.                             └─base::lapply(...)
   37.                               └─cli (local) FUN(X[[i]], ...)
   38.                                 └─app$text(text[[i]])
   39.                                   └─cli:::clii_text(app, text)
   40.                                     └─app$xtext(text)
   41.                                       └─cli:::clii__xtext(...)
   42.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   43.                                           └─base::lapply(pars, ansi_trimws)
   44.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-special-missing-values.R:133:1): (code run outside of `test_that()`) ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─airquality %>% nabular() %>% dplyr::group_by(Month) %>% ... at test-special-missing-values.R:133:0
    2. ├─naniar::recode_shadow(., Ozone = .where(Wind <= 5 ~ "broken_machine"))
    3. │ └─... %>% dplyr::mutate(!!!magic_shade_case_when)
    4. ├─dplyr::mutate(., !!!magic_shade_case_when)
    5. └─naniar:::update_shadow(., unlist(suffix, use.names = FALSE))
    6.   └─dplyr::mutate_if(...)
    7.     └─dplyr:::check_grouped(.tbl, "mutate", "if")
    8.       └─rlang::inform(...)
    9.         ├─base::withRestarts(...)
   10.         │ └─base (local) withOneRestart(expr, restarts[[1L]])
   11.         │   └─base (local) doWithOneRestart(return(expr), restart)
   12.         └─base::signalCondition(cnd)
   13.           ├─base::conditionMessage(cond)
   14.           └─rlang:::conditionMessage.rlang_message(cond)
   15.             └─rlang::cnd_message(c)
   16.               └─rlang:::cnd_message_format(cnd, ...)
   17.                 └─rlang (local) cli_format(glue_escape(lines))
   18.                   └─rlang:::.rlang_cli_format(x, cli::format_message)
   19.                     └─cli::cli_format(x, .envir = emptyenv())
   20.                       └─cli:::fmt(...)
   21.                         └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   22.                           ├─base::do.call(app[[msg$type]], msg$args)
   23.                           └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-276", class = NULL)
   24.                             └─cli:::clii_bullets(app, text, id, class)
   25.                               └─base::lapply(...)
   26.                                 └─cli (local) FUN(X[[i]], ...)
   27.                                   └─app$text(text[[i]])
   28.                                     └─cli:::clii_text(app, text)
   29.                                       └─app$xtext(text)
   30.                                         └─cli:::clii__xtext(...)
   31.                                           └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   32.                                             └─base::lapply(pars, ansi_trimws)
   33.                                               └─cli (local) FUN(X[[i]], ...)
  
  [ FAIL 3 | WARN 0 | SKIP 32 | PASS 519 ]
  Error: Test failures
  Execution halted