Question

我正在尝试为我所在地区的某个小组制作应用程序。本质上，它将采用用户的邮政编码输入，将邮政编码与它所属的本地组匹配，然后返回属于该本地组的所有邮政编码，并将其与COVID-19数据映射。我已经为此工作了一段时间，但似乎找不到我为什么不断收到此错误的信息：

Error in makeFunction(body = expr, env = env) : argument "expr" is missing, with no default

该应用在运行时立即崩溃，当它运行时，它在用户输入时崩溃。我认为此问题在我的服务器代码中某个位置，该代码包括在下面：

    server <- function(input, output, session){
output$map <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$Stamen.TerrainBackground) %>%
      setView(-84.388168, 33.748783, zoom = 5.5) %>%
            addFullscreenControl(position = "topleft", pseudoFullscreen = FALSE) %>%
    addResetMapButton()
    })
     filteredData <- reactive({
       subset(FinCounties, FinCounties$Group  == (LocalGroupZipcodes$Group[LocalGroupZipcodes$zipcode == input$zipcodeinput]))
  })
     observe({
       if ((input$zipcodeinput %in% LocalGroupZipcodes$zipcode)){
      leafletProxy("map", data = filteredData()) %>%
      clearShapes() %>%
      addPolygons(fillColor = "#7C98F7", fillOpacity = .3, color = "#444444", highlightOptions = highlightOptions(color = "white", weight = 2, bringToFront = TRUE))
         } else {
            leafletProxy("map") %>%
          clearMarkers() %>%
          clearMarkerClusters() %>%
          clearShapes()
      }
  })
}

非常感谢您提供有关此错误的任何帮助或指导。对这个错误进行深入的研究并没有取得成果。

缺少参数expr，RShiny / Leaflet没有默认值

0 个答案: