Running ‘testthat.R’ [36s/61s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(feasts)
  Loading required package: fabletools
  > 
  > test_check("feasts")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 98 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-graphics.R:11:3'): gg_season() plots ───────────────────────────
  Error in `ggplot2::scale_color_gradientn(colours = pal, breaks = if (num_ids <= 
      max_col_discrete) seq_len(num_ids) else ggplot2::waiver(), 
      labels = function(idx) levels(data$id)[idx])`: `breaks` and `labels` have different lengths.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(ggplot2::layer_data(p)$y, tsbl_co2$value) at test-graphics.R:11:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─ggplot2::layer_data(p)
    5.   ├─ggplot2::ggplot_build(plot)
    6.   └─ggplot2:::ggplot_build.ggplot(plot)
    7.     └─plot$guides$build(npscales, plot$layers, plot$labels, data)
    8.       └─ggplot2 (local) build(..., self = self)
    9.         └─guides$train(scales, labels)
   10.           └─ggplot2 (local) train(..., self = self)
   11.             └─base::Map(...)
   12.               └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   13.                 └─ggplot2 (local) `<fn>`(...)
   14.                   └─guide$train(param, scale, aes, title = labels[[aes]])
   15.                     └─ggplot2 (local) train(..., self = self)
   16.                       ├─rlang::inject(self$extract_key(scale, !!!params))
   17.                       └─self$extract_key(...)
   18.                         └─ggplot2 (local) extract_key(...)
   19.                           └─Guide$extract_key(scale, aesthetic, ...)
   20.                             └─ggplot2 (local) extract_key(...)
   21.                               └─scale$get_labels(breaks)
   22.                                 └─ggplot2 (local) get_labels(..., self = self)
   23.                                   └─cli::cli_abort(...)
   24.                                     └─rlang::abort(...)
  ── Error ('test-graphics.R:208:3'): gg_tsdisplay() plots ───────────────────────
  Error in `ggplot2::scale_color_gradientn(colours = pal, breaks = if (num_ids <= 
      max_col_discrete) seq_len(num_ids) else ggplot2::waiver(), 
      labels = function(idx) levels(data$id)[idx])`: `breaks` and `labels` have different lengths.
  Backtrace:
       ▆
    1. ├─ggplot2::ggplot_build(p[[3]]) at test-graphics.R:208:3
    2. └─ggplot2:::ggplot_build.ggplot(p[[3]])
    3.   └─plot$guides$build(npscales, plot$layers, plot$labels, data)
    4.     └─ggplot2 (local) build(..., self = self)
    5.       └─guides$train(scales, labels)
    6.         └─ggplot2 (local) train(..., self = self)
    7.           └─base::Map(...)
    8.             └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
    9.               └─ggplot2 (local) `<fn>`(...)
   10.                 └─guide$train(param, scale, aes, title = labels[[aes]])
   11.                   └─ggplot2 (local) train(..., self = self)
   12.                     ├─rlang::inject(self$extract_key(scale, !!!params))
   13.                     └─self$extract_key(...)
   14.                       └─ggplot2 (local) extract_key(...)
   15.                         └─Guide$extract_key(scale, aesthetic, ...)
   16.                           └─ggplot2 (local) extract_key(...)
   17.                             └─scale$get_labels(breaks)
   18.                               └─ggplot2 (local) get_labels(..., self = self)
   19.                                 └─cli::cli_abort(...)
   20.                                   └─rlang::abort(...)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 98 ]
  Error: Test failures
  Execution halted