如何在 Shiny R 中重新加载我的传单地图

问题描述

我正在 RStudio 中开发一个 Shiny 应用程序。现在，我正在使用 Leaflet 包创建地图。代码工作正常，并在我询问时显示我的建模，一切几乎没问题，但有一点： 当我尝试进行另一个建模时，我单击按钮在传单地图中显示我的新数据，但它只能显示最后一个建模的数据。如果我关闭应用程序，它会刷新信息，并向我显示新地图。

如果氯大于/小于 1，地图被划分为可能发生的可能性。如果/否则写在一个循环中。该应用程序能够检测必须打印的 Leaflet 地图，但在模拟后不显示。我必须重新启动应用程序（或通过 R 中的按钮重新加载它），并且我想要按钮的相关响应：如果我放置新特性并尝试新的模拟，传单地图必须显示相关结果。

这段代码是：

ui <- fluidpage(
        tabItem(tabName = "resultats",wellPanel(  
                       actionButton("refresh",label = "Mostra Zona Simulada"),leafletoutput("mymap",width = "500px",height = "250px")
                       )
                    )
                 )
server <- function(input,output,session) {
   observeEvent(input$refresh,{
    if(empty(Nodesover)){
      output$mymap <- renderLeaflet({
        leaflet(DadesNodesDibuix) %>%
          addTiles() %>%
          addCircleMarkers(
            lng = Nodesguai$ycoord,lat = Nodesguai$xcoord,color = 'green',radius = 1,opacity = 100,popup = paste('<strong>',"ID node:",'</strong>',Nodesguai$idnode,"<br>",'<strong>',"Concentracio Clor:",round(Nodesguai$clor,3),"<br>")) %>% 
          addCircleMarkers(
            lng = Nodeslow$ycoord,lat = Nodeslow$xcoord,color = 'red',"Informacio node:",Nodeslow$idnode,round(Nodeslow$clor,"<br>")) %>%
          addLegend(
            position = c("bottomleft"),colors = c("green","red"),title = "Concentracio Clor",labels = c("Correcte","Baix"))
      })
    }else{
      output$mymap <- renderLeaflet({
        leaflet() %>%
          addTiles() %>%
          addCircleMarkers(
            lng = Nodesguai$ycoord,popup = Nodeslow$clor) %>%
          addCircleMarkers(
            lng = Nodesover$ycoord,lat = Nodesover$xcoord,color = 'black',Nodesover$idnode,round(Nodesover$clor,"red","black"),"Baix","Sense"))
          })
            if(empty(Nodeslow)){
              output$mymap <- renderLeaflet({
                leaflet() %>%
                  addTiles() %>%
                  addCircleMarkers(
                    lng = Nodesguai$ycoord,"<br>")) %>%
                  addCircleMarkers(
                    lng = Nodesover$ycoord,"<br>")) %>%
                addLegend(
                    position = c("bottomleft"),"Sense"))
                })
              }else{
                output$mymap <- renderLeaflet({
                  leaflet() %>%
                    addTiles() %>%
                    addCircleMarkers(
                      lng = Nodesguai$ycoord,"<br>")) %>%
                    addLegend(
                      position = c("bottomleft"),colors = c("green"),labels = c("Correcte"))
                  })
                if(empty(Nodesguai)){
                  output$mymap <- renderLeaflet({
                    leaflet() %>%
                      addTiles() %>%
                      addCircleMarkers(
                        lng = Nodeslow$ycoord,"<br>")) %>%
                      addCircleMarkers(
                        lng = Nodesover$ycoord,"<em>","<br>")) %>%
                      addLegend(
                        position = c("bottomleft"),colors = c("red",labels = c("Baix","Sense"))
                  })
                }
              }
         }
   }) 
}    

我做错了什么？代码工作而不是那样。

非常感谢您的时间和耐心。 :)

解决方法

几分钟前我找到了我的答案，我希望它能帮助其他人解决这个问题。

我遇到的问题是 Leaflet 订单无法读取我所做的每个模拟的新结果。

解决方案是在“observeEvent(input$refresh,{ output$mymap

 observeEvent(input$Refresh,{
        output$mymap <- renderLeaflet({
        #You have to add the files inside the output. This files are changing in
        #every simulation I did in my shiny app,and now the loop CAN READ the 
        #changes!
          DadesNodes<-read.csv("./data/DadesNodes.csv",header = TRUE)
          DadesNodesLow<-read.csv("./results/Nodeslow.csv",header = TRUE)
          DadesNodesOver<-read.csv("./results/Nodesover.csv",header = TRUE)
          DadesNodesGuai<-read.csv("./results/Nodesguai.csv",header = TRUE)
          DadesNodesTreball<-read.csv("./data/DadesNodesTreball.csv",header = TRUE)
          Nodeslow  <- DadesNodesLow
          Nodesover <- DadesNodesOver
          Nodesguai <- DadesNodesGuai
        if(empty(Nodesover)){
            leaflet("mymap") %>%
              addTiles() %>%
              addCircleMarkers(
                lng = Nodesguai$ycoord,lat = Nodesguai$xcoord,color = 'green',radius = 1,opacity = 100,popup = paste('<strong>',"ID node:",'</strong>',Nodesguai$idnode,"<br>",'<strong>',"Concentracio Clor:",round(Nodesguai$clor,3),"<br>")) %>% 
              addCircleMarkers(
                lng = Nodeslow$ycoord,lat = Nodeslow$xcoord,color = 'red',"Informacio node:",Nodeslow$idnode,round(Nodeslow$clor,"<br>")) %>%
              addLegend(
                position = c("bottomleft"),colors = c("green","red","black"),title = "Concentracio Clor (mg/L)",labels = c("Correcte","Baix","Alt"))
          #})
        }else{
          if(empty(Nodeslow)){
            leaflet("mymap") %>%
                  addTiles() %>%
                  addCircleMarkers(
                    lng = Nodesguai$ycoord,"<br>")) %>%
                  addCircleMarkers(
                    lng = Nodesover$ycoord,lat = Nodesover$xcoord,color = 'black',Nodesover$idnode,round(Nodesover$clor,"<br>")) %>%
                  addLegend(
                    position = c("bottomleft"),"Alt"))
            }else{
              if(empty(Nodesguai)){
                leaflet("mymap") %>%
                    addTiles() %>%
                    addCircleMarkers(
                      lng = Nodeslow$ycoord,"<br>")) %>%
                    addCircleMarkers(
                      lng = Nodesover$ycoord,"<em>","<br>")) %>%
                    addLegend(
                      position = c("bottomleft"),"Alt"))
              }else{
                leaflet("mymap") %>%
                  addTiles() %>%
                  addCircleMarkers(
                    lng = Nodesguai$ycoord,"<br>")) %>%
            addCircleMarkers(
              lng = Nodeslow$ycoord,popup = Nodeslow$clor) %>%
            addCircleMarkers(
              lng = Nodesover$ycoord,"<br>")) %>%
            addLegend(
              position = c("bottomleft"),"Alt"))

            }
          }
        }     
      })
    })
    

干杯！