如何将 covid19.analytics 中的 live.map 函数添加到闪亮的应用程序中？

Question

我正在尝试创建一个 covid19 交互式信息应用程序，但我在将 covid19.analytics 包中的 live.map() 添加到我的应用程序时遇到了很多问题

   library(shiny)
    library(shinythemes)
    library(covid19.analytics)
    library(plotly)

    ui <- fluidPage(theme=shinytheme("cosmo"), 
            navbarPage( "COVID 19 APPLICATION",
              tabPanel(
                "Interactive COVID 19 MAP",
                  sidebarPanel(
                      
                    ),
                       mainPanel(
                  plotlyOutput("map")
                  )
                ), tabPanel(
                  "Countries",
                  sidebarPanel(
                    selectInput(inputId = "countries", label = "country selection", choices = c("country 1", "country 2", "country 3")), 
                      
                    ),
                 mainPanel(
                    plotOutput( outputId = "countries") 
                  )     
                  ),
                
                 tabPanel(
                  "coolness XD",
                  sidebarPanel( ),
                    
                mainPanel(
                    plotOutput( outputId = "coolness") 
                  )  
                 
                )
            
                ),
              ) 

    server <- function(input,output){
  

    output$map <- renderPlotly({
    x <- live.map()
    output$map <- x
  })
 
}


shinyApp(ui=ui,server=server)


output$map <- renderPlotly({
    x <- live.map()
    output$map <- x
  })
 
}


shinyApp(ui=ui,server=server)

我仍然是 shiny 的初学者，所以使用 renderplot/renderplotly 函数有点混乱。有谁知道我该如何解决这个问题？

Answer 1

您有几件事需要解决：

在 live.map 中你需要设置参数 interactive.display=FALSE 否则 live.map 将启动它自己的网页渲染
您的服务器部分需要修改如下，

    server <- function(input,output){
                output$map <- renderPlotly({
                x <- live.map(interactive.display=FALSE)
              })
    }

即。您不需要从 renderPlotly

中将 x 重新分配给 output$map

另请查看 covid19.analytics 仪表板资源管理器中的一些示例，https://github.com/mponce0/covid19.analytics/blob/master/R/covid19_dashboard.R

最后，服务器 fn 定义之外的最后一个“孤儿”output$map <- ... 应该被删除，只需要一次 shinyApp(ui=ui,server=server) 的实例。

如何将 covid19.analytics 中的 live.map 函数添加到闪亮的应用程序中？

how do you add the live.map function from covid19.analytics to a shiny app?

maps

interactive

r

shiny

plotly