R Shiny：使用 ShinyWidget pickerInput 在 Leaflet 中取消选择图层

Question

我正在使用 ShinyWidget 的 pickerInput 功能来允许用户选择多个图层（空间数据）以在 Leaflet 中显示。选中多个框会根据需要显示图层，但是，在取消选中输入菜单中的框后，我无法隐藏/取消选择图层。

我的 app.R 脚本中的关键代码：

tn_data <- c("Rail"="rail1", "Airports"="airports1", "Ferries"="ferries1")

pickerInput(inputId = "pickv", label = "Transportation", choices = tn_data, multiple = TRUE),

rail_vn <- readOGR(dsn = "./geospatial_files/osm", layer = "gis.osm_railways_free_1")

server <- function(input, output, session) {

observeEvent(input$pickv, {
  if (input$pickv == "rail1"){  # this diplays just the rail layer
  proxy <- leafletProxy("map")
  proxy %>% addPolylines(data=rail_vn, weight = 2, group = "railv", color = "#7f0000")}
  else {proxy %>% clearGroup("railv")} # this does not work, unable to deselect/hide layer in Leaeflet
 }
)

以前，当我使用 checkboxInput 时，我可以使用 clearGroup 函数从 Leaflet 中取消选择图层，但这不能使用 pickerInput。

欢迎提出任何建议，因为我找不到任何将 pickerInput 与 Leaflet 一起使用的类似示例。

Answer 1

我认为您应该在 if then 之外定义代理，这样在 else 上也可以使用。

observeEvent(input$pickv, {
  proxy <- leafletProxy("map")
  if (input$pickv == "rail1"){  # this diplays just the rail layer
     proxy %>% addPolylines(data=rail_vn, weight = 2, group = "railv", color = "#7f0000")}
  else {
        proxy %>% clearGroup("railv")} # this does not work, unable to deselect/hide layer in Leaeflet
 }