Running ‘testthat.R’ [1s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(unglue)
  > 
  > test_check("unglue")
  ══ Warnings ════════════════════════════════════════════════════════════════════
  ── Warning (test-unglue_vec.R:15:3): unglue_vec works ──────────────────────────
  'as.is' should be specified by the caller; using TRUE
  Backtrace:
   1. testthat::expect_equal(...) test-unglue_vec.R:15:2
   4. unglue::unglue_vec(sentences, patterns, "number", convert = type.convert)
   5. unglue:::unglue_vec0(...)
   7. utils:::type.convert.default(res)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-unglue.R:5:3): unglue works ─────────────────────────────────────
  Error: replacement has length zero
  Backtrace:
      █
   1. ├─testthat::expect_equivalent(...) test-unglue.R:5:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::sapply(unglue(sentences, patterns), names)
   5. │ └─base::lapply(X = X, FUN = FUN, ...)
   6. └─unglue::unglue(sentences, patterns)
   7.   └─unglue:::unglue_data0(x, patterns_regex, convert, multiple, output = "list")
  ── Error (test-unglue_data.R:10:3): unglue_data features all work ──────────────
  Error: replacement has length zero
  Backtrace:
      █
   1. ├─testthat::expect_identical(...) test-unglue_data.R:10:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─unglue::unglue_data(...)
   5.   └─unglue:::unglue_data0(...)
  ── Error (test-unglue_data.R:70:3): when no match get an empty data frame with correct number of rows ──
  Error: replacement has length zero
  Backtrace:
      █
   1. ├─testthat::expect_equal(...) test-unglue_data.R:70:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::nrow(unglue_data(c("x!", "y!"), c("{foo}?", "{bar}.")))
   5. └─unglue::unglue_data(c("x!", "y!"), c("{foo}?", "{bar}."))
   6.   └─unglue:::unglue_data0(...)
  ── Error (test-unglue_data.R:82:3): duplicated names are handled properly ──────
  Error: replacement has length zero
  Backtrace:
      █
   1. ├─testthat::expect_equal(...) test-unglue_data.R:82:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─unglue::unglue_data(string, pattern, convert = TRUE)
   5.   └─unglue:::unglue_data0(...)
  ── Error (test-unglue_unnest.R:5:3): unglue_unnest works ───────────────────────
  Error: replacement has length zero
  Backtrace:
      █
   1. ├─testthat::expect_equal(...) test-unglue_unnest.R:5:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─unglue::unglue_unnest(df, sentence, patterns, remove = FALSE)
   5.   └─unglue::unglue_data(...)
   6.     └─unglue:::unglue_data0(...)
  
  [ FAIL 5 | WARN 1 | SKIP 0 | PASS 28 ]
  Error: Test failures
  Execution halted