Running examples in 'modeltime.ensemble-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ensemble_average
> ### Title: Creates an Ensemble Model using Mean/Median Averaging
> ### Aliases: ensemble_average
> 
> ### ** Examples
> 
> library(tidymodels)
-- Attaching packages -------------------------------------- tidymodels 0.1.1 --
v broom     0.7.2      v recipes   0.1.14
v dials     0.0.9      v rsample   0.0.8 
v dplyr     1.0.2      v tibble    3.0.4 
v ggplot2   3.3.2      v tidyr     1.1.2 
v infer     0.5.3      v tune      0.1.1 
v modeldata 0.1.0      v workflows 0.2.1 
v parsnip   0.1.4      v yardstick 0.0.7 
v purrr     0.3.4      
-- Conflicts ----------------------------------------- tidymodels_conflicts() --
x purrr::discard() masks scales::discard()
x dplyr::filter()  masks stats::filter()
x dplyr::lag()     masks stats::lag()
x recipes::step()  masks stats::step()
> library(modeltime)
> library(modeltime.ensemble)
> library(tidyverse)
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v readr   1.4.0     v forcats 0.5.0
v stringr 1.4.0     
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x readr::col_factor() masks scales::col_factor()
x purrr::discard()    masks scales::discard()
x dplyr::filter()     masks stats::filter()
x stringr::fixed()    masks recipes::fixed()
x dplyr::lag()        masks stats::lag()
x readr::spec()       masks yardstick::spec()
> library(timetk)
> 
> # Make an ensemble from a Modeltime Table
> ensemble_fit <- m750_models %>%
+     ensemble_average(type = "mean")
> 
> ensemble_fit
-- Modeltime Ensemble -------------------------------------------
Ensemble of 3 Models (MEAN)

# Modeltime Table
# A tibble: 3 x 3
  .model_id .model     .model_desc            
      <int> <list>     <chr>                  
1         1 <workflow> ARIMA(0,1,1)(0,1,1)[12]
2         2 <workflow> PROPHET                
3         3 <workflow> GLMNET                 
> 
> # Forecast with the Ensemble
> modeltime_table(
+     ensemble_fit
+ ) %>%
+     modeltime_forecast(
+         new_data    = testing(m750_splits),
+         actual_data = m750
+     ) %>%
+     plot_modeltime_forecast(
+         .interactive = FALSE,
+         .conf_interval_show = FALSE
+     )
Error: Problem occurred getting predictors from new data. Error: Internal error: Unknown `composition` type.

Warning: Problem with `mutate()` input `.nested.col`.
i Unknown or uninitialised column: `.key`.
i Input `.nested.col` is `purrr::map2(...)`.
Warning: Unknown or uninitialised column: `.key`.
Error: Problem occurred getting predictors from new data. Error: Internal error: Unknown `composition` type.

Error: Problem occurred getting predictors from new data. Error: Internal error: Unknown `composition` type.

Error: Problem with `filter()` input `..1`.
x object '.key' not found
i Input `..1` is `.model_desc == "ACTUAL" | .key == "prediction"`.
Warning: Unknown or uninitialised column: `.key`.
Error: Problem with `filter()` input `..1`.
x object '.key' not found
i Input `..1` is `.model_desc == "ACTUAL" | .key == "prediction"`.
Backtrace:
     x
  1. +-`%>%`(...)
  2. | +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3. | \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  4. |   \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  5. |     \-`_fseq`(`_lhs`)
  6. |       \-magrittr::freduce(value, `_function_list`)
  7. |         \-function_list[[i]](value)
  8. |           +-modeltime::modeltime_forecast(...)
  9. |           \-modeltime:::modeltime_forecast.mdl_time_tbl(...)
 10. |             \-ret %>% dplyr::filter(.model_desc == "ACTUAL" | .key == "prediction")
 11. |               +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
 12. |               \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
 13. |                 \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
 14. |                   \-modeltime:::`_fseq`(`_lhs`)
 15. |                     \-magrittr::freduce(value, `_function_list`)
 16. |                       +-base::withVisible(function_list[[k]](value))
 17. |                       \-function_list[[k]](value)
 18. |                         +-dplyr::filter(., .model_desc == "ACTUAL" | .key == "prediction")
 19. |                         \-dplyr:::filter.data.frame(...)
 20. |                           \-dplyr:::filter_rows(.data, ...)
 21. |                             +-base::withCallingHandlers(...)
 22. |                             \-mask$eval_all_filter(dots, env_filter)
 23. \-base::.handleSimpleError(...)
 24.   \-dplyr:::h(simpleError(msg, call))
Execution halted