Correctly structure Ops.lst_mdl output to be a list of models

Resolves #237
tidyverts · Jun 27, 2020 · 6622dd2 · 6622dd2
1 parent 337d0a5
commit 6622dd2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -8,6 +8,7 @@
 
 * Fixed issue with aggregated date vectors (#230).
 * Fixed display of models in `View()` panel.
+* Fixed issue with combination models not inheriting vctrs functionality (#237).
 
 # fabletools 0.2.0
 

diff --git a/R/model_combination.R b/R/model_combination.R
@@ -222,7 +222,7 @@ Ops.mdl_ts <- function(e1, e2){
 
 #' @export
 Ops.lst_mdl <- function(e1, e2){
-  structure(map2(e1, e2, .Generic), class = c("lst_mdl", "list"))
+  list_of_models(map2(e1, e2, .Generic))
 }
 
 #' @importFrom stats var