为什么这个带有 tidymodels 的 Shiny 中的反应性 Plotly 图不起作用？

问题描述

不是最小可重现的示例，但比原始示例大大减少（展示模式，因此您可以看到所有代码）：https://pathos.shinyapps.io/reprex1

要上传示例数据，请随意使用以下 .csv 数据生成器：

df <- data.frame(yearr = sample(2015:2021,2190,replace = TRUE),monthh = sample(1:12,dayy = sample(1:29,replace = TRUE)) |>
  mutate(datee = ymd(paste(yearr,monthh,dayy)),weekk = week(datee),yy  = sample(10000:20000,replace = TRUE) + (yearr^2) + (monthh^2) + (weekk^2),dummyy = as.factor(round(sample(0:1,replace = TRUE)))) |>
  filter(!is.na(datee)) |>
  arrange(-desc(datee))

write_csv(df,'sample_data.csv')

如果使用上述样本数据，选择yy作为预测变量，同时使用datee作为时间变量和ID变量。

---

问题：数据上传和选择变量后左侧的“模型”选项卡 - 它应该呈现弹性网络 Plotly 图，但它抛出 Error: cannot coerce type 'closure' to vector of type 'character'

我遇到问题的代码中的特定位置从 server.R 的此处开始：

# MODEL
    fit_enet = wf_enet |>
      fit(y ~ .,data = dff())
... and on

我已确认 folds 不会引发错误。当我注释/取消注释它下面的部分（#MODEL 和下面）时，它会抛出上述错误。

---

几个星期以来，我查看了许多不同的链接、问答、资源等，但没有一个像我这样的场景，用户上传数据，user 被动地从所述数据中选择列/变量，并使用整个数据运行模型。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）