加载闪亮应用程序时强制更新输出

这里的问题是创建传单地图的代码被暂停 output$map 被隐藏。

解决此问题的一种方法是:

outputOptions(output,"map",suspendWhenHidden=FALSE)

不幸的是,这似乎是错误的,但可能很快就会修复,它目前抛出一个js错误( see here ).

自从 output$summary 似乎是在 renderLeaflet ,您可以使用 setView 作为临时解决方案。

output$summary <- renderPrint({
      leafletProxy('map') %>% setView(runif(1) * 30 +2, runif(1) * 30 + 2, 7)
      print(input$mydata)
      print(leafletProxy('map')$id)
    })

你应该放一个 need 在你的反应中。例如:

need(input$button, "Click the button")

此处的文档: http://shiny.rstudio.com/reference/shiny/latest/validate.html

或者,您可以在代理为 NULL :

if (is.null(proxy)) {
    return(NULL)
}