Running ‘testthat.R’ [4s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(isaeditor)
  > 
  > test_check("isaeditor")
  Modifying / creating properties 'Characteristics[UUID]'...
  Creating property Characteristics[UUID] for node Source Name [ID1] after column [ID5]
  Modifying / creating properties 'Characteristics[UUID]'...
  Modyfying property Characteristics[UUID] for node Source Name [ID1]
  Removing property 'Characteristics[Organism]' from node 'Source Name' [ID1]
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 159 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-isatab_class.R:79:3): `[<-` works ───────────────────────────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_message(x["Test Node"] <- 1:3) at test-isatab_class.R:79:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─base::`[<-`(`*tmp*`, "Test Node", value = `<int>`)
    8. ├─isaeditor:::`[<-.isatab`(`*tmp*`, "Test Node", value = `<int>`)
    9. │ └─isaeditor:::.node_new(x, node, after_id, value)
   10. │   └─isaeditor:::.isa_node_add(x, node, after_node = after_id)
   11. │     ├─tibble::as_tibble(...)
   12. │     └─tibble:::as_tibble.matrix(...)
   13. │       ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   14. │       └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   15. │         └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   16. │           └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   17. │             ├─rlang::set_names(...)
   18. │             └─tibble:::repaired_names(...)
   19. │               ├─tibble:::subclass_name_repair_errors(...)
   20. │               │ └─base::withCallingHandlers(...)
   21. │               └─vctrs::vec_as_names(...)
   22. └─vctrs:::describe_repair("", "...1")
   23.   └─rlang::names_inform_repair(orig_names, names)
   24.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   25.       ├─base::withRestarts(...)
   26.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   27.       │   └─base (local) doWithOneRestart(return(expr), restart)
   28.       └─base::signalCondition(cnd)
   29.         ├─base::conditionMessage(cond)
   30.         └─rlang:::conditionMessage.rlang_message(cond)
   31.           └─rlang::cnd_message(c)
   32.             └─rlang:::cnd_message_format(cnd, ...)
   33.               └─rlang (local) cli_format(glue_escape(lines))
   34.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   35.                   └─cli::cli_format(x, .envir = emptyenv())
   36.                     └─cli:::fmt(...)
   37.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   38.                         ├─base::do.call(app[[msg$type]], msg$args)
   39.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-18", class = NULL)
   40.                           └─cli:::clii_bullets(app, text, id, class)
   41.                             └─base::lapply(...)
   42.                               └─cli (local) FUN(X[[i]], ...)
   43.                                 └─app$text(text[[i]])
   44.                                   └─cli:::clii_text(app, text)
   45.                                     └─app$xtext(text)
   46.                                       └─cli:::clii__xtext(...)
   47.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   48.                                           └─base::lapply(pars, ansi_trimws)
   49.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-isatools.R:22:3): Adding nodes works ────────────────────────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─isaeditor::isa_node_add(...) at test-isatools.R:22:2
    2. │ └─isaeditor:::.isa_node_add(x, node, columns, after_node)
    3. │   ├─tibble::as_tibble(...)
    4. │   └─tibble:::as_tibble.matrix(...)
    5. │     ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
    6. │     └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
    7. │       └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
    8. │         └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
    9. │           ├─rlang::set_names(...)
   10. │           └─tibble:::repaired_names(...)
   11. │             ├─tibble:::subclass_name_repair_errors(...)
   12. │             │ └─base::withCallingHandlers(...)
   13. │             └─vctrs::vec_as_names(...)
   14. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   15.   └─rlang::names_inform_repair(orig_names, names)
   16.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   17.       ├─base::withRestarts(...)
   18.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   19.       │   └─base (local) doWithOneRestart(return(expr), restart)
   20.       └─base::signalCondition(cnd)
   21.         ├─base::conditionMessage(cond)
   22.         └─rlang:::conditionMessage.rlang_message(cond)
   23.           └─rlang::cnd_message(c)
   24.             └─rlang:::cnd_message_format(cnd, ...)
   25.               └─rlang (local) cli_format(glue_escape(lines))
   26.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   27.                   └─cli::cli_format(x, .envir = emptyenv())
   28.                     └─cli:::fmt(...)
   29.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   30.                         ├─base::do.call(app[[msg$type]], msg$args)
   31.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-60", class = NULL)
   32.                           └─cli:::clii_bullets(app, text, id, class)
   33.                             └─base::lapply(...)
   34.                               └─cli (local) FUN(X[[i]], ...)
   35.                                 └─app$text(text[[i]])
   36.                                   └─cli:::clii_text(app, text)
   37.                                     └─app$xtext(text)
   38.                                       └─cli:::clii__xtext(...)
   39.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   40.                                           └─base::lapply(pars, ansi_trimws)
   41.                                             └─cli (local) FUN(X[[i]], ...)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 159 ]
  Error: Test failures
  Execution halted