Running ‘testthat.R’ [180s/269s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > library(xgboost)
  > library(randomForest)
  randomForest 4.7-1.1
  Type rfNews() to see new features/changes/bug fixes.
  > library(kernlab)
  > library(earth)
  Loading required package: Formula
  Loading required package: plotmo
  Loading required package: plotrix
  Loading required package: TeachingDemos
  > library(thief)
  Loading required package: forecast
  > library(smooth)
  Loading required package: greybox
  Package "greybox", v1.0.7 loaded.
  If you want to know more about the greybox and forecasting, you can visit my website: https://forecasting.svetunkov.ru/
  
  This is package "smooth", v3.2.0
  
  > library(greybox)
  > 
  > library(stats)
  > 
  > library(tidymodels)
  ── Attaching packages ────────────────────────────────────── tidymodels 1.0.0 ──
  ✔ broom        1.0.3     ✔ recipes      1.0.4
  ✔ dials        1.1.0     ✔ rsample      1.1.1
  ✔ dplyr        1.1.0     ✔ tibble       3.1.8
  ✔ ggplot2      3.4.0     ✔ tidyr        1.3.0
  ✔ infer        1.0.4     ✔ tune         1.0.1
  ✔ modeldata    1.1.0     ✔ workflows    1.1.2
  ✔ parsnip      1.0.3     ✔ workflowsets 1.0.0
  ✔ purrr        1.0.1     ✔ yardstick    1.1.0
  ── Conflicts ───────────────────────────────────────── tidymodels_conflicts() ──
  ✖ yardstick::accuracy() masks forecast::accuracy()
  ✖ ggplot2::alpha()      masks scales::alpha(), kernlab::alpha()
  ✖ dplyr::combine()      masks randomForest::combine()
  ✖ purrr::cross()        masks kernlab::cross()
  ✖ purrr::discard()      masks scales::discard()
  ✖ dplyr::filter()       masks stats::filter()
  ✖ purrr::is_null()      masks testthat::is_null()
  ✖ dplyr::lag()          masks stats::lag()
  ✖ ggplot2::margin()     masks randomForest::margin()
  ✖ tidyr::matches()      masks rsample::matches(), dplyr::matches(), testthat::matches()
  ✖ parsnip::pls()        masks smooth::pls()
  ✖ dplyr::slice()        masks xgboost::slice()
  ✖ tidyr::spread()       masks greybox::spread()
  ✖ recipes::step()       masks stats::step()
  • Dig deeper into tidy modeling with R at https://www.tmwr.org
  > library(parsnip)
  > library(workflows)
  > library(rsample)
  > library(recipes)
  > library(tune)
  > library(dials)
  > library(TSrepr)
  
  Attaching package: 'TSrepr'
  
  The following objects are masked from 'package:yardstick':
  
      mae, mape, mase, rmse, smape
  
  > library(yardstick)
  > library(slider)
  > 
  > library(timetk)
  > library(modeltime)
  
  Attaching package: 'modeltime'
  
  The following object is masked from 'package:TSrepr':
  
      maape
  
  The following object is masked from 'package:kernlab':
  
      error
  
  > 
  > library(tidyverse)
  ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
  ✔ readr   2.1.3     ✔ forcats 1.0.0
  ✔ stringr 1.5.0     
  ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
  ✖ ggplot2::alpha()       masks scales::alpha(), kernlab::alpha()
  ✖ readr::col_factor()    masks scales::col_factor()
  ✖ dplyr::combine()       masks randomForest::combine()
  ✖ purrr::cross()         masks kernlab::cross()
  ✖ purrr::discard()       masks scales::discard()
  ✖ readr::edition_get()   masks testthat::edition_get()
  ✖ dplyr::filter()        masks stats::filter()
  ✖ stringr::fixed()       masks recipes::fixed()
  ✖ purrr::is_null()       masks testthat::is_null()
  ✖ dplyr::lag()           masks stats::lag()
  ✖ readr::local_edition() masks testthat::local_edition()
  ✖ ggplot2::margin()      masks randomForest::margin()
  ✖ tidyr::matches()       masks rsample::matches(), dplyr::matches(), testthat::matches()
  ✖ dplyr::slice()         masks xgboost::slice()
  ✖ readr::spec()          masks yardstick::spec()
  ✖ tidyr::spread()        masks greybox::spread()
  > library(lubridate)
  
  Attaching package: 'lubridate'
  
  The following object is masked from 'package:greybox':
  
      hm
  
  The following objects are masked from 'package:base':
  
      date, intersect, setdiff, union
  
  > 
  > 
  > test_check("modeltime")
  
  
  
  
  
  
  
  
  
  
  
  
  [ FAIL 1 | WARN 6 | SKIP 25 | PASS 502 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (25)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-algo-exp_smoothing-ets.R:290'): (code run outside of `test_that()`) ──
  <tibble_error_incompatible_size/tibble_error/rlang_error/error/condition>
  Error: Tibble columns must have compatible sizes.
  • Size 275: Existing data.
  • Size 0: Column `.actual`.
  ℹ Only values of size one are recycled.
  Backtrace:
       ▆
    1. ├─model_spec %>% ... at test-algo-exp_smoothing-ets.R:290:0
    2. ├─generics::fit(., log(value) ~ date, data = training(splits))
    3. ├─parsnip::fit.model_spec(., log(value) ~ date, data = training(splits))
    4. │ └─parsnip:::form_xy(...)
    5. │   └─parsnip:::xy_xy(...)
    6. │     └─parsnip:::eval_mod(...)
    7. │       └─rlang::eval_tidy(e, env = envir, ...)
    8. └─modeltime::smooth_fit_impl(x = maybe_data_frame(x), y = y)
    9.   ├─modeltime::new_modeltime_bridge(...)
   10.   │ └─base::is.data.frame(data)
   11.   └─tibble::tibble(...)
   12.     └─tibble:::tibble_quos(xs, .rows, .name_repair)
   13.       └─tibble:::vectbl_recycle_rows(res, first_size, j, given_col_names[[j]])
   14.         └─rlang::cnd_signal(error_incompatible_size(n, name, size, "Existing data"))
  
  [ FAIL 1 | WARN 6 | SKIP 25 | PASS 502 ]
  Error: Test failures
  Execution halted