Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(flair)
  > 
  > test_check("flair")
  [1] 10
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 5 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-flair.R:29'): flair_rx works for with_flair object ─────────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `str_extract_all(., "(\\<[^\\<\\>]*\\>)|((?<=\\>|^)([^\\<]|(\\<(?=(\\-|\\<))))*(?=\\<|$))")`: `string` must be a vector, not a <source> object.
  Backtrace:
       ▆
    1. ├─flair::flair_rx(test_dc, test_regexp, color = "red", size = "30px") at test-flair.R:29:2
    2. ├─flair:::flair_rx.with_flair(...)
    3. │ └─purrr::map(...)
    4. │   └─flair (local) .f(.x[[i]], ...)
    5. │     ├─flair::flair_rx(...)
    6. │     └─flair:::flair_rx.default(...)
    7. │       └─... %>% unlist()
    8. ├─base::unlist(.)
    9. ├─stringr::str_extract_all(., "(\\<[^\\<\\>]*\\>)|((?<=\\>|^)([^\\<]|(\\<(?=(\\-|\\<))))*(?=\\<|$))")
   10. │ └─stringr:::check_lengths(string, pattern)
   11. │   └─vctrs::vec_size_common(...)
   12. └─vctrs:::stop_scalar_type(`<fn>`(`<source>`), "string", `<env>`)
   13.   └─vctrs:::stop_vctrs(...)
   14.     └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-flair_lines.R:15'): flair_lines works on with_flair objects ────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `str_count(.x, "\\n|(<br>)")`: `string` must be a vector, not a <source> object.
  Backtrace:
       ▆
    1. ├─flair::flair_lines(test_wf, c(2:4)) at test-flair_lines.R:15:2
    2. ├─flair:::flair_lines.with_flair(test_wf, c(2:4))
    3. │ └─... %>% map2(1:sum(where_sources), ~ 0:.x + .y)
    4. ├─purrr::map2(., 1:sum(where_sources), ~0:.x + .y)
    5. ├─purrr::map(., ~str_count(.x, "\\n|(<br>)"))
    6. │ └─flair (local) .f(.x[[i]], ...)
    7. │   └─stringr::str_count(.x, "\\n|(<br>)")
    8. │     └─stringr:::check_lengths(string, pattern)
    9. │       └─vctrs::vec_size_common(...)
   10. └─vctrs:::stop_scalar_type(`<fn>`(`<source>`), "string", `<env>`)
   11.   └─vctrs:::stop_vctrs(...)
   12.     └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 5 ]
  Error: Test failures
  Execution halted