Running 'testthat.R' [12s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(grobblR)
  > 
  > test_check("grobblR")
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 15 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_grob_image.R:25:5): No errors when passing in a valid URL to a .png image. ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_true(grid::is.grob(url_gl$grob)) at test_grob_image.R:25:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─grid::is.grob(url_gl$grob)
    5. ├─grobblR (local) `<fn>`()
    6. │ └─grobblR:::add_page_number(...)
    7. │   ├─... %>% ...
    8. │   └─grobblR::grob_matrix(page_number)
    9. │     ├─base::suppressMessages(...)
   10. │     │ └─base::withCallingHandlers(...)
   11. │     └─test %>% tibble::as_tibble(.name_repair = "unique")
   12. ├─grobblR::add_aesthetic(...)
   13. │ └─methods::is(grob_object, "grob_matrix_object")
   14. ├─grobblR::add_aesthetic(...)
   15. │ └─methods::is(grob_object, "grob_matrix_object")
   16. ├─tibble::as_tibble(., .name_repair = "unique")
   17. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   18. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   19. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   20. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   21. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   22. │       ├─rlang::set_names(...)
   23. │       └─tibble:::repaired_names(...)
   24. │         ├─tibble:::subclass_name_repair_errors(...)
   25. │         │ └─base::withCallingHandlers(...)
   26. │         └─vctrs::vec_as_names(...)
   27. └─vctrs:::describe_repair("", "...1")
   28.   └─rlang::names_inform_repair(orig_names, names)
   29.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   30.       ├─base::withRestarts(...)
   31.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   32.       │   └─base (local) doWithOneRestart(return(expr), restart)
   33.       └─base::signalCondition(cnd)
   34.         ├─base::conditionMessage(cond)
   35.         └─rlang:::conditionMessage.rlang_message(cond)
   36.           └─rlang::cnd_message(c)
   37.             └─rlang:::cnd_message_format(cnd, ...)
   38.               └─rlang (local) cli_format(glue_escape(lines))
   39.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   40.                   └─cli::cli_format(x, .envir = emptyenv())
   41.                     └─cli:::fmt(...)
   42.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   43.                         ├─base::do.call(app[[msg$type]], msg$args)
   44.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-18", class = NULL)
   45.                           └─cli:::clii_bullets(app, text, id, class)
   46.                             └─base::lapply(...)
   47.                               └─cli (local) FUN(X[[i]], ...)
   48.                                 └─app$text(text[[i]])
   49.                                   └─cli:::clii_text(app, text)
   50.                                     └─app$xtext(text)
   51.                                       └─cli:::clii__xtext(...)
   52.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   53.                                           └─base::lapply(pars, ansi_trimws)
   54.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test_grob_matrix.R:20:5): No errors when passing in a matrix with like column names, and we try to group them together. ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─... %>% ... at test_grob_matrix.R:20:4
    2. ├─grobblR::add_aesthetic(., "group_elements", TRUE, "column_names")
    3. │ └─methods::is(grob_object, "grob_matrix_object")
    4. ├─grobblR::grob_matrix(.)
    5. │ ├─base::suppressMessages(...)
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─test %>% tibble::as_tibble(.name_repair = "unique")
    8. ├─tibble::as_tibble(., .name_repair = "unique")
    9. ├─tibble:::as_tibble.data.frame(., .name_repair = "unique")
   10. │ └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   11. │   └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   12. │     ├─rlang::set_names(...)
   13. │     └─tibble:::repaired_names(...)
   14. │       ├─tibble:::subclass_name_repair_errors(...)
   15. │       │ └─base::withCallingHandlers(...)
   16. │       └─vctrs::vec_as_names(...)
   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-48", 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_grob_matrix.R:43:5): No errors when passing in a matrix of aesthetics to add_aesthetic(). ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_true(grid::is.grob(gl$grob)) at test_grob_matrix.R:43:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─grid::is.grob(gl$grob)
    5. ├─grobblR (local) `<fn>`()
    6. │ └─grobblR:::add_page_number(...)
    7. │   ├─... %>% ...
    8. │   └─grobblR::grob_matrix(page_number)
    9. │     ├─base::suppressMessages(...)
   10. │     │ └─base::withCallingHandlers(...)
   11. │     └─test %>% tibble::as_tibble(.name_repair = "unique")
   12. ├─grobblR::add_aesthetic(...)
   13. │ └─methods::is(grob_object, "grob_matrix_object")
   14. ├─grobblR::add_aesthetic(...)
   15. │ └─methods::is(grob_object, "grob_matrix_object")
   16. ├─tibble::as_tibble(., .name_repair = "unique")
   17. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   18. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   19. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   20. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   21. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   22. │       ├─rlang::set_names(...)
   23. │       └─tibble:::repaired_names(...)
   24. │         ├─tibble:::subclass_name_repair_errors(...)
   25. │         │ └─base::withCallingHandlers(...)
   26. │         └─vctrs::vec_as_names(...)
   27. └─vctrs:::describe_repair("", "...1")
   28.   └─rlang::names_inform_repair(orig_names, names)
   29.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   30.       ├─base::withRestarts(...)
   31.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   32.       │   └─base (local) doWithOneRestart(return(expr), restart)
   33.       └─base::signalCondition(cnd)
   34.         ├─base::conditionMessage(cond)
   35.         └─rlang:::conditionMessage.rlang_message(cond)
   36.           └─rlang::cnd_message(c)
   37.             └─rlang:::cnd_message_format(cnd, ...)
   38.               └─rlang (local) cli_format(glue_escape(lines))
   39.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   40.                   └─cli::cli_format(x, .envir = emptyenv())
   41.                     └─cli:::fmt(...)
   42.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   43.                         ├─base::do.call(app[[msg$type]], msg$args)
   44.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-66", class = NULL)
   45.                           └─cli:::clii_bullets(app, text, id, class)
   46.                             └─base::lapply(...)
   47.                               └─cli (local) FUN(X[[i]], ...)
   48.                                 └─app$text(text[[i]])
   49.                                   └─cli:::clii_text(app, text)
   50.                                     └─app$xtext(text)
   51.                                       └─cli:::clii__xtext(...)
   52.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   53.                                           └─base::lapply(pars, ansi_trimws)
   54.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test_grob_matrix.R:145:5): No errors when passing in a vector of structures to add_structure(). ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_true(grid::is.grob(gl$grob)) at test_grob_matrix.R:145:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─grid::is.grob(gl$grob)
    5. ├─grobblR (local) `<fn>`()
    6. │ └─grobblR:::add_page_number(...)
    7. │   ├─... %>% ...
    8. │   └─grobblR::grob_matrix(page_number)
    9. │     ├─base::suppressMessages(...)
   10. │     │ └─base::withCallingHandlers(...)
   11. │     └─test %>% tibble::as_tibble(.name_repair = "unique")
   12. ├─grobblR::add_aesthetic(...)
   13. │ └─methods::is(grob_object, "grob_matrix_object")
   14. ├─grobblR::add_aesthetic(...)
   15. │ └─methods::is(grob_object, "grob_matrix_object")
   16. ├─tibble::as_tibble(., .name_repair = "unique")
   17. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   18. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   19. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   20. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   21. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   22. │       ├─rlang::set_names(...)
   23. │       └─tibble:::repaired_names(...)
   24. │         ├─tibble:::subclass_name_repair_errors(...)
   25. │         │ └─base::withCallingHandlers(...)
   26. │         └─vctrs::vec_as_names(...)
   27. └─vctrs:::describe_repair("", "...1")
   28.   └─rlang::names_inform_repair(orig_names, names)
   29.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   30.       ├─base::withRestarts(...)
   31.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   32.       │   └─base (local) doWithOneRestart(return(expr), restart)
   33.       └─base::signalCondition(cnd)
   34.         ├─base::conditionMessage(cond)
   35.         └─rlang:::conditionMessage.rlang_message(cond)
   36.           └─rlang::cnd_message(c)
   37.             └─rlang:::cnd_message_format(cnd, ...)
   38.               └─rlang (local) cli_format(glue_escape(lines))
   39.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   40.                   └─cli::cli_format(x, .envir = emptyenv())
   41.                     └─cli:::fmt(...)
   42.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   43.                         ├─base::do.call(app[[msg$type]], msg$args)
   44.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-84", class = NULL)
   45.                           └─cli:::clii_bullets(app, text, id, class)
   46.                             └─base::lapply(...)
   47.                               └─cli (local) FUN(X[[i]], ...)
   48.                                 └─app$text(text[[i]])
   49.                                   └─cli:::clii_text(app, text)
   50.                                     └─app$xtext(text)
   51.                                       └─cli:::clii__xtext(...)
   52.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   53.                                           └─base::lapply(pars, ansi_trimws)
   54.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test_matrix_aesthetics.R:24:5): No errors when inputting numeric text alignments and justifications. ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_true(grid::is.grob(gl$grob)) at test_matrix_aesthetics.R:24:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─grid::is.grob(gl$grob)
    5. ├─grobblR (local) `<fn>`()
    6. │ └─grobblR:::add_page_number(...)
    7. │   ├─... %>% ...
    8. │   └─grobblR::grob_matrix(page_number)
    9. │     ├─base::suppressMessages(...)
   10. │     │ └─base::withCallingHandlers(...)
   11. │     └─test %>% tibble::as_tibble(.name_repair = "unique")
   12. ├─grobblR::add_aesthetic(...)
   13. │ └─methods::is(grob_object, "grob_matrix_object")
   14. ├─grobblR::add_aesthetic(...)
   15. │ └─methods::is(grob_object, "grob_matrix_object")
   16. ├─tibble::as_tibble(., .name_repair = "unique")
   17. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   18. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   19. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   20. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   21. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   22. │       ├─rlang::set_names(...)
   23. │       └─tibble:::repaired_names(...)
   24. │         ├─tibble:::subclass_name_repair_errors(...)
   25. │         │ └─base::withCallingHandlers(...)
   26. │         └─vctrs::vec_as_names(...)
   27. └─vctrs:::describe_repair("", "...1")
   28.   └─rlang::names_inform_repair(orig_names, names)
   29.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   30.       ├─base::withRestarts(...)
   31.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   32.       │   └─base (local) doWithOneRestart(return(expr), restart)
   33.       └─base::signalCondition(cnd)
   34.         ├─base::conditionMessage(cond)
   35.         └─rlang:::conditionMessage.rlang_message(cond)
   36.           └─rlang::cnd_message(c)
   37.             └─rlang:::cnd_message_format(cnd, ...)
   38.               └─rlang (local) cli_format(glue_escape(lines))
   39.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   40.                   └─cli::cli_format(x, .envir = emptyenv())
   41.                     └─cli:::fmt(...)
   42.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   43.                         ├─base::do.call(app[[msg$type]], msg$args)
   44.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-102", class = NULL)
   45.                           └─cli:::clii_bullets(app, text, id, class)
   46.                             └─base::lapply(...)
   47.                               └─cli (local) FUN(X[[i]], ...)
   48.                                 └─app$text(text[[i]])
   49.                                   └─cli:::clii_text(app, text)
   50.                                     └─app$xtext(text)
   51.                                       └─cli:::clii__xtext(...)
   52.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   53.                                           └─base::lapply(pars, ansi_trimws)
   54.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test_matrix_aesthetics.R:84:5): No errors when inputting a character string for font_face in alter_at() ('bold', 'italic', etc). ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_true(grid::is.grob(gl$grob)) at test_matrix_aesthetics.R:84:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─grid::is.grob(gl$grob)
    5. ├─grobblR (local) `<fn>`()
    6. │ └─grobblR:::add_page_number(...)
    7. │   ├─... %>% ...
    8. │   └─grobblR::grob_matrix(page_number)
    9. │     ├─base::suppressMessages(...)
   10. │     │ └─base::withCallingHandlers(...)
   11. │     └─test %>% tibble::as_tibble(.name_repair = "unique")
   12. ├─grobblR::add_aesthetic(...)
   13. │ └─methods::is(grob_object, "grob_matrix_object")
   14. ├─grobblR::add_aesthetic(...)
   15. │ └─methods::is(grob_object, "grob_matrix_object")
   16. ├─tibble::as_tibble(., .name_repair = "unique")
   17. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   18. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   19. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   20. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   21. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   22. │       ├─rlang::set_names(...)
   23. │       └─tibble:::repaired_names(...)
   24. │         ├─tibble:::subclass_name_repair_errors(...)
   25. │         │ └─base::withCallingHandlers(...)
   26. │         └─vctrs::vec_as_names(...)
   27. └─vctrs:::describe_repair("", "...1")
   28.   └─rlang::names_inform_repair(orig_names, names)
   29.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   30.       ├─base::withRestarts(...)
   31.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   32.       │   └─base (local) doWithOneRestart(return(expr), restart)
   33.       └─base::signalCondition(cnd)
   34.         ├─base::conditionMessage(cond)
   35.         └─rlang:::conditionMessage.rlang_message(cond)
   36.           └─rlang::cnd_message(c)
   37.             └─rlang:::cnd_message_format(cnd, ...)
   38.               └─rlang (local) cli_format(glue_escape(lines))
   39.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   40.                   └─cli::cli_format(x, .envir = emptyenv())
   41.                     └─cli:::fmt(...)
   42.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   43.                         ├─base::do.call(app[[msg$type]], msg$args)
   44.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-120", class = NULL)
   45.                           └─cli:::clii_bullets(app, text, id, class)
   46.                             └─base::lapply(...)
   47.                               └─cli (local) FUN(X[[i]], ...)
   48.                                 └─app$text(text[[i]])
   49.                                   └─cli:::clii_text(app, text)
   50.                                     └─app$xtext(text)
   51.                                       └─cli:::clii__xtext(...)
   52.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   53.                                           └─base::lapply(pars, ansi_trimws)
   54.                                             └─cli (local) FUN(X[[i]], ...)
  
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 15 ]
  Error: Test failures
  Execution halted