我正在尝试将我的闪亮仪表板移植到 flexdashboard,但我遇到了在服务器端呈现的对象的问题。
在此示例中,我有一个在服务器端呈现的输入选择器
output$weeklyWeekSelector <- renderUI({
selectInput('weeklyWeeks',
label = 'Uker',
choices = as.list(weeks),
multiple=TRUE,selectize=FALSE,
selected = weeks[1:26],
size=35)
})
然后显示在仪表板上:
uiOutput("weeklyWeekSelector")
这在我第一次加载页面时效果很好,但是,如果我执行以下操作: 1. 加载页面(工作正常!) 2. 调整页面大小(使其重新加载)
然后我显示的输入选择器将从仪表板上完全消失。不仅如此,它还会从网站的所有其他实例中消失(我在闪亮的服务器上拥有它)。然后需要在 shinyserver 中重新加载仪表板/闪亮应用程序(我只是复制新文件),以便 UI 再次出现。
当我渲染 ggvis plot 服务器端并通过它时,也会出现此问题。
当我同时使用两者时会出现此问题:1. Shinyserver(此处的dockerfile:https ://github.com/raubreywhite/shiny )2. rmarkdown::run on RStudio
我在此处附加了 .Rmd 文件和数据:https ://github.com/rstudio/flexdashboard/issues/61
我不知道这是 flexdashboard 的错误还是我做错了什么,因为我不了解 flexdashboard 和 shinydashboard 之间的不同思维方式。
谢谢!
我一直在对此进行更多研究,而且似乎如果我重新加载页面就会发生这种情况。所以 uiOutput 似乎在网站重新加载后消失了。