R 发布到web时主面板出错

我正在为当前项目发布一个闪亮的应用程序，虽然它在本地运行时没有错误，但在发布到shinyapps.io时，我会收到一个一般性错误（“发生错误”）

我试过调整绘图边距，摆弄代码和调试

可以在此处找到源数据：[编辑-删除源数据]

shinyapps日志：

可以在以下位置找到闪亮的应用程序：

图书馆（闪亮）
图书馆（降价）
图书馆（dplyr）
图书馆（lubridate）
图书馆（GG2）
pdat[OP的错误日志，在twitter上共享：

我认为问题发生在这里：

var_name <- eval(substitute(var),eval(dt))

var_name[OP的错误日志，在twitter上共享：

我认为问题发生在这里：

var_name <- eval(substitute(var),eval(dt))

var\u name感谢您的快速回复。我一定会记住您关于短变量名的建议。目前，我已将
t
重命名为'temp'，但我仍然收到一个错误。您肯定认为这是一个本地问题，这是对的。我已经用更多信息更新了我的主要帖子。感谢您的快速回复。我一定会请记住您关于短变量名的建议。目前，我已将
t
重命名为'temp'，但仍有一个错误。您肯定认为这是一个局部问题。我已更新了我的主要帖子，提供了更多信息。