.data <- mable[[1]][[1]][["data"]] is almost surely the problem.
We can get model names as fabletools::mable_vars(mable), group_by(key) and recover data that way. thus our result will be a dataset which is a reconstruction of the original dataset.
We might face further issues with iteration over multiple data, and might need to replace e.g. bind_cols() with a _join()
The first line
.data <- mable[[1]][[1]][["data"]]
is almost surely the problem.We can get model names as
fabletools::mable_vars(mable)
,group_by(key)
and recover data that way. thus our result will be a dataset which is a reconstruction of the original dataset.We might face further issues with iteration over multiple data, and might need to replace e.g.
bind_cols()
with a_join()