在闪亮/传单中选择和取消选择多段线答案

【问题标题】：Select and Deselect Polylines in Shiny/Leaflet在闪亮/传单中选择和取消选择多段线
【发布时间】：2018-02-07 18:34:47
【问题描述】：

我以 Lauren 的身份解决了我的问题。 Changing styles when selecting and deselecting multiple polygons with Leaflet/Shiny 唯一的区别是我使用折线而不是多边形。我想在再次单击时选择多条折线并取消选择它们。但它不起作用..它会从表中删除重新选择的，但不会从地图中删除，并且在从我选择的行中删除一行后，我无法再选择它了。

谁能帮帮我！

Data

这是我的代码：

library(shiny)
library(leaflet)
library(geojsonio)

url <- "pathTogeojson"

geojson <- geojsonio::geojson_read(url, what = "sp") 

shinyApp(
  ui <- fluidRow(
        leafletOutput("map")),

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

    click_list <- reactiveValues(ids = vector())  

    output$map <- renderLeaflet({
      leaflet() %>% 
        addTiles() %>% 
        setView(lng=16.357795000076294, lat=48.194883921677935, zoom = 15) %>%
        addPolylines(data=geojson, layerId = geojson@data$name_1, group = "selected", color="red", weight=3,opacity=1)
    })

    observeEvent(input$map_shape_click, {

      click <- input$map_shape_click
      proxy <- leafletProxy("map")
      click_list$ids <- c(click_list$ids, click$id)

      sel_lines <- geojson[geojson@data$name_1 %in% click_list$ids, ]

      if(click$id %in% sel_lines@data$id)
      {
        nameMatch <- sel_lines@data$name_1[sel_lines@data$id == click$id]
        click_list$ids <- click_list$ids[!click_list$ids %in% click$id] 
        click_list$ids <- click_list$ids[!click_list$ids %in% nameMatch]

        proxy %>% removeShape(layerId = click$id)
      }
      else
      {
        proxy %>% addPolylines(data = sel_lines, layerId = sel_lines@data$id, color="#6cb5bc", weight=5,opacity=1)
      }
    })
  })

【问题讨论】：

标签： r proxy shiny leaflet polyline

【解决方案1】：

我自己找到了解决方案..我的数据和我的不理解是问题所在。只有当所有使用的列都是 character 类型时才有效...所以我必须使用 as.character() 进行类型转换

【讨论】：