Question

我的目标是根据“发光”和“小叶”的建造年份，展示多组湖泊。所有湖泊都在公共的polygonData.SpatialPolygonsDataFrame中，并且列出了特定的湖泊群和建造年份作为属性。

所需的湖泊的显示由几年的滑块输入过滤。像所有湖泊形成的第一年和最后一年一样，最小和最大滑块值是固定的。

设置特定组和特定年份时，可能会出现以下情况：该选择不存在，并发出警告：错误：空SpatialPolygonsDataFrame对象已传递，将被跳过。然后程序关闭。在这种情况下，我需要显示我感兴趣的整个区域而没有多边形。好，谢谢你

sliderInput("range", "Year:",
min_date, max_date, value = max_date, animate = FALSE, step = 30),



shp_selected <- reactive({
textRange <- paste0(input$range, "-01-01", sep="")

group_selected()[group_selected()$year <= as.Date(textRange),]

})


output$map <- renderLeaflet({

input$update  
isolate(leaflet(options = leafletOptions(minZoom = 11, maxZoom = 18)) %>%
          addProviderTiles(input$bmap)) %>%
  addPolygons(
    data = shp_selected(),
    weight = 1
  ) %>%
  mapOptions(zoomToLimits = "always") %>%
  setMaxBounds(lng1 = 18.65
                , lat1 = 48.29
                , lng2 = 19.1
                , lat2 = 48.57 )}
})

错误：传递了空的SpatialPolygonsDataFrame对象，并将其跳过

0 个答案: