r - 寓言：模型功能的模型列表

Question

有了寓言，我可以做到：

require(fable)   
it <-  tsibbledata::global_economy %>%    filter(Country == "Italy")
fm <-  model(.data = it, ARIMA(log(GDP) ~ Population), ETS(log(GDP)))

我希望能够在将模型列表传递给模型（）之前构建模型列表，例如：

mod_list <- list2(m1 = ARIMA(log(GDP) ~ Population), m2 = ETS(log(GDP)))
fm <- model(.data = it, mod_list)        

我找不到实现这一目标的方法。有什么建议么？

就像是：

map(mod_list, model, .data = it)

可能是一个起点，但不完全是我想要达到的目标

提前感谢您的帮助