Running 'testthat.R' [16s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(rlang)
  
  Attaching package: 'rlang'
  
  The following objects are masked from 'package:testthat':
  
      is_false, is_null, is_true
  
  > library(keyholder)
  
  Attaching package: 'keyholder'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("keyholder")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 310 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-keyed-df-one-tbl.R:138:3): mutate_all works ─────────────────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─keyholder (local) expect_commute_with_keys(mtcars_grouped, mutate_all_f) at test-keyed-df-one-tbl.R:138:2
    2. │ └─keyholder (local) expect_commute(...) at test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 at test-keyed-df-one-tbl.R:16:2
    4. ├─magrittr (local) .f2(.)
    5. │ └─magrittr::freduce(value, `_function_list`)
    6. │   ├─base::withVisible(function_list[[k]](value))
    7. │   └─function_list[[k]](value)
    8. │     └─keyholder::assign_keys(., keys_mtcars)
    9. └─magrittr (local) .f1(.)
   10.   └─magrittr::freduce(value, `_function_list`)
   11.     ├─base::withVisible(function_list[[k]](value))
   12.     └─function_list[[k]](value)
   13.       └─dplyr::mutate_all(., as.character)
   14.         └─dplyr:::check_grouped(.tbl, "mutate", "all", alt = TRUE)
   15.           └─rlang::inform(...)
   16.             ├─base::withRestarts(...)
   17.             │ └─base (local) withOneRestart(expr, restarts[[1L]])
   18.             │   └─base (local) doWithOneRestart(return(expr), restart)
   19.             └─base::signalCondition(cnd)
   20.               ├─base::conditionMessage(cond)
   21.               └─rlang:::conditionMessage.rlang_message(cond)
   22.                 └─rlang::cnd_message(c)
   23.                   └─rlang:::cnd_message_format(cnd, ...)
   24.                     └─rlang (local) cli_format(glue_escape(lines))
   25.                       └─rlang:::.rlang_cli_format(x, cli::format_message)
   26.                         └─cli::cli_format(x, .envir = emptyenv())
   27.                           └─cli:::fmt(...)
   28.                             └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   29.                               ├─base::do.call(app[[msg$type]], msg$args)
   30.                               └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3", class = NULL)
   31.                                 └─cli:::clii_bullets(app, text, id, class)
   32.                                   └─base::lapply(...)
   33.                                     └─cli (local) FUN(X[[i]], ...)
   34.                                       └─app$text(text[[i]])
   35.                                         └─cli:::clii_text(app, text)
   36.                                           └─app$xtext(text)
   37.                                             └─cli:::clii__xtext(...)
   38.                                               └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   39.                                                 └─base::lapply(pars, ansi_trimws)
   40.                                                   └─cli (local) FUN(X[[i]], ...)
  ── Error (test-keyed-df-one-tbl.R:147:3): mutate_if works ──────────────────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─keyholder (local) expect_commute_with_keys(mtcars_grouped, mutate_if_f) at test-keyed-df-one-tbl.R:147:2
    2. │ └─keyholder (local) expect_commute(...) at test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 at test-keyed-df-one-tbl.R:16:2
    4. ├─magrittr (local) .f2(.)
    5. │ └─magrittr::freduce(value, `_function_list`)
    6. │   ├─base::withVisible(function_list[[k]](value))
    7. │   └─function_list[[k]](value)
    8. │     └─keyholder::assign_keys(., keys_mtcars)
    9. └─magrittr (local) .f1(.)
   10.   └─magrittr::freduce(value, `_function_list`)
   11.     ├─base::withVisible(function_list[[k]](value))
   12.     └─function_list[[k]](value)
   13.       └─dplyr::mutate_if(., is.double, as.integer)
   14.         └─dplyr:::check_grouped(.tbl, "mutate", "if")
   15.           └─rlang::inform(...)
   16.             ├─base::withRestarts(...)
   17.             │ └─base (local) withOneRestart(expr, restarts[[1L]])
   18.             │   └─base (local) doWithOneRestart(return(expr), restart)
   19.             └─base::signalCondition(cnd)
   20.               ├─base::conditionMessage(cond)
   21.               └─rlang:::conditionMessage.rlang_message(cond)
   22.                 └─rlang::cnd_message(c)
   23.                   └─rlang:::cnd_message_format(cnd, ...)
   24.                     └─rlang (local) cli_format(glue_escape(lines))
   25.                       └─rlang:::.rlang_cli_format(x, cli::format_message)
   26.                         └─cli::cli_format(x, .envir = emptyenv())
   27.                           └─cli:::fmt(...)
   28.                             └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   29.                               ├─base::do.call(app[[msg$type]], msg$args)
   30.                               └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-12", class = NULL)
   31.                                 └─cli:::clii_bullets(app, text, id, class)
   32.                                   └─base::lapply(...)
   33.                                     └─cli (local) FUN(X[[i]], ...)
   34.                                       └─app$text(text[[i]])
   35.                                         └─cli:::clii_text(app, text)
   36.                                           └─app$xtext(text)
   37.                                             └─cli:::clii__xtext(...)
   38.                                               └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   39.                                                 └─base::lapply(pars, ansi_trimws)
   40.                                                   └─cli (local) FUN(X[[i]], ...)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 310 ]
  Error: Test failures
  Execution halted