Аргумент expr отсутствует без значения по умолчанию для RShiny / Leaflet - PullRequest
Новая
       13

Аргумент expr отсутствует без значения по умолчанию для RShiny / Leaflet

0 голосов
/ 10 июля 2020

Я пытаюсь создать приложение для группы в моей части мира. По сути, он будет вводить почтовый индекс пользователя, сопоставлять почтовый индекс с локальной группой, к которой он принадлежит, а затем возвращать все почтовые индексы, которые принадлежат этой локальной группе, и сопоставлять их с данными 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()
      }
  })
}

Любая помощь или руководство по этой ошибке были бы очень признательны. Глубокий поиск этой ошибки не дал результатов.

...