Running ‘testthat.R’ [47s/77s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > test_check("fabletools")
  Loading required package: fabletools
  [ FAIL 1 | WARN 0 | SKIP 1 | PASS 294 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-features.R:23:3): features() ────────────────────────────────────
  Error in `(function (..., .name_repair = c("unique", "universal", "check_unique", 
      "minimal")) 
  {
      dots <- list2(...)
      dots <- squash_if(dots, vec_is_list)
      dots <- discard(dots, is.null)
      names2(dots)[map_lgl(dots, is.data.frame)] <- ""
      out <- fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
      if (!any(map_lgl(dots, is.data.frame))) {
          out <- as_tibble(out)
      }
      if (length(dots) && is.data.frame(first <- dots[[1L]])) {
          out <- dplyr_reconstruct(out, first)
      }
      out
  })(a = structure(list(a = 1495.94444444444), row.names = c(NA, 
  -1L), class = "data.frame"), b = structure(list(b = 940), row.names = c(NA, 
  -1L), class = "data.frame"), structure(list(2750), names = "", row.names = c(NA, 
  -1L), class = "data.frame"))`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─... %>% expect_equal(c("a", "b", "...3")) at test-features.R:23:2
    2. ├─testthat::expect_equal(., c("a", "b", "...3"))
    3. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    5. ├─base::colnames(.)
    6. │ └─base::is.data.frame(x)
    7. ├─fabletools::features(...)
    8. ├─fabletools:::features.tbl_ts(...)
    9. │ └─fabletools:::features_impl(.tbl, list(.var), features, ...)
   10. │   └─fabletools:::map(...)
   11. │     └─base::lapply(.x, .f, ...)
   12. │       └─fabletools (local) FUN(X[[i]], ...)
   13. │         ├─fabletools:::invoke(bind_cols, res[["result"]])
   14. │         │ └─base::do.call(.f, args, envir = .env)
   15. │         └─dplyr (local) `<fn>`(a = `<df[,1]>`, b = `<df[,1]>`, `<df[,1]>`)
   16. │           ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   17. │           │ └─base::withCallingHandlers(...)
   18. │           └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   19. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   20. │ └─rlang::names_inform_repair(orig_names, names)
   21. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   22. │     ├─base::withRestarts(...)
   23. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   25. │     └─base::signalCondition(cnd)
   26. │       ├─base::conditionMessage(cond)
   27. │       └─rlang:::conditionMessage.rlang_message(cond)
   28. │         └─rlang::cnd_message(c)
   29. │           └─rlang:::cnd_message_format(cnd, ...)
   30. │             └─rlang (local) cli_format(glue_escape(lines))
   31. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   32. │                 └─cli::cli_format(x, .envir = emptyenv())
   33. │                   └─cli:::fmt(...)
   34. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   35. │                       ├─base::do.call(app[[msg$type]], msg$args)
   36. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-18", class = NULL)
   37. │                         └─cli:::clii_bullets(app, text, id, class)
   38. │                           └─base::lapply(...)
   39. │                             └─cli (local) FUN(X[[i]], ...)
   40. │                               └─app$text(text[[i]])
   41. │                                 └─cli:::clii_text(app, text)
   42. │                                   └─app$xtext(text)
   43. │                                     └─cli:::clii__xtext(...)
   44. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   45. │                                         └─base::lapply(pars, ansi_trimws)
   46. │                                           └─cli (local) FUN(X[[i]], ...)
   47. └─base::.handleSimpleError(...)
   48.   └─dplyr (local) h(simpleError(msg, call))
   49.     └─rlang::cnd_signal(cnd)
  
  [ FAIL 1 | WARN 0 | SKIP 1 | PASS 294 ]
  Error: Test failures
  Execution halted