Running 'testthat.R' [7s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(prt)
  > 
  > if (requireNamespace("xml2")) {
  +   test_check("prt", reporter = MultiReporter$new(reporters = list(JunitReporter$new(file = "test-results.xml"), CheckReporter$new())))
  + } else {
  +   test_check("prt")
  + }
  Loading required namespace: xml2
  [ FAIL 2 | WARN 0 | SKIP 2 | PASS 257 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On Windows (2)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-format.R:20:3): print() returns output invisibly ────────────────
  Error in `base::nchar(strip_style(x), ...)`: number of characters is not computable in "bytes" encoding, element 6
  Backtrace:
       ▆
    1. ├─testthat::expect_output(ret <- withVisible(print(prt_cars))) at test-format.R:20:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─base::withVisible(print(prt_cars))
   11. ├─base::print(prt_cars)
   12. └─prt:::print.prt(prt_cars)
   13.   ├─prt:::cat_line(format(x, ..., n = n, width = width, n_extra = n_extra))
   14.   │ ├─base::trimws(paste0(...), "right")
   15.   │ │ └─base (local) mysub(paste0(whitespace, "+$"), x)
   16.   │ │   └─base::sub(re, "", x, perl = TRUE)
   17.   │ │     └─base::is.factor(x)
   18.   │ └─base::paste0(...)
   19.   ├─base::format(x, ..., n = n, width = width, n_extra = n_extra)
   20.   └─prt:::format.prt(x, ..., n = n, width = width, n_extra = n_extra)
   21.     ├─base::format(trunc_dt(x, n = n, width = width, n_extra = n_extra))
   22.     └─prt:::format.trunc_dt(trunc_dt(x, n = n, width = width, n_extra = n_extra))
   23.       └─prt:::squeeze_dt(x, width = width)
   24.         └─prt:::add_row_id(res, pillar::style_subtle(x$row_id))
   25.           ├─base::lapply(x, do_add, max(crayon::col_nchar(rowid)), rowid)
   26.           │ └─prt (local) FUN(X[[i]], ...)
   27.           │   ├─base::paste(...)
   28.           │   └─base::strrep(" ", width)
   29.           └─crayon::col_nchar(rowid)
   30.             └─base::nchar(strip_style(x), ...)
  ── Error (test-format.R:29:3): trunc_dt output matches known output ────────────
  Error in `base::nchar(strip_style(x), ...)`: number of characters is not computable in "bytes" encoding, element 9
  Backtrace:
       ▆
    1. ├─prt:::expect_output_file_opts(...) at test-format.R:29:2
    2. │ ├─withr::with_options(...) at D:\RCompile\CRANpkg\local\4.3\prt.Rcheck\tests\testthat\helper-functions.R:5:2
    3. │ │ └─base::force(code)
    4. │ └─testthat::expect_known_output(x, output_file(filename), update = FALSE)
    5. │   ├─base::append(act, eval_with_output(object, print = print, width = width))
    6. │   └─testthat:::eval_with_output(object, print = print, width = width)
    7. │     ├─withr::with_output_sink(path, withVisible(code))
    8. │     │ └─base::force(code)
    9. │     └─base::withVisible(code)
   10. ├─base::print(prt_cars, n = 8L, width = 30L)
   11. └─prt:::print.prt(prt_cars, n = 8L, width = 30L)
   12.   ├─prt:::cat_line(format(x, ..., n = n, width = width, n_extra = n_extra))
   13.   │ ├─base::trimws(paste0(...), "right")
   14.   │ │ └─base (local) mysub(paste0(whitespace, "+$"), x)
   15.   │ │   └─base::sub(re, "", x, perl = TRUE)
   16.   │ │     └─base::is.factor(x)
   17.   │ └─base::paste0(...)
   18.   ├─base::format(x, ..., n = n, width = width, n_extra = n_extra)
   19.   └─prt:::format.prt(x, ..., n = n, width = width, n_extra = n_extra)
   20.     ├─base::format(trunc_dt(x, n = n, width = width, n_extra = n_extra))
   21.     └─prt:::format.trunc_dt(trunc_dt(x, n = n, width = width, n_extra = n_extra))
   22.       └─prt:::squeeze_dt(x, width = width)
   23.         └─prt:::add_row_id(res, pillar::style_subtle(x$row_id))
   24.           ├─base::lapply(x, do_add, max(crayon::col_nchar(rowid)), rowid)
   25.           │ └─prt (local) FUN(X[[i]], ...)
   26.           │   ├─base::paste(...)
   27.           │   └─base::strrep(" ", width)
   28.           └─crayon::col_nchar(rowid)
   29.             └─base::nchar(strip_style(x), ...)
  
  [ FAIL 2 | WARN 0 | SKIP 2 | PASS 257 ]
  Error: Test failures
  Execution halted