Leaflet drawToolbar与R Shiny中的leafletProxy答案

【问题标题】：Leaflet drawToolbar with leafletProxy in R ShinyLeaflet drawToolbar与R Shiny中的leafletProxy
【发布时间】：2018-10-03 08:39:35
【问题描述】：

我喜欢在切换按钮时添加和删除绘图工具栏。但它不起作用。可能是与https://github.com/bhaskarvk/leaflet.extras/issues/148 相关的错误或我的代码有问题？

library(shiny)
library(shinyBS)
library(leaflet)
library(leaflet.extras)

ui <- fluidPage(
  bsButton("edit", " Edit", icon = icon("pencil"),
           style = "default", type = "toggle", value = FALSE),
  leafletOutput("map")
)

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

  output$map <- renderLeaflet({leaflet() %>% addTiles()})

  observe({
    req(isFALSE(input$edit))
    print(input$edit)
    leafletProxy("map") %>% removeDrawToolbar()
  })

  observe({
    req(isTRUE(input$edit))
    print(input$edit)
    leafletProxy("map") %>% addDrawToolbar()
  })
}

shinyApp(ui, server)

【问题讨论】：

标签： r shiny r-leaflet

【解决方案1】：

leafletProxy 似乎是一个悬而未决的问题。正如您的链接中所建议的那样，您可以通过在 lfx-draw-bindings.js 中将两个“removeFrom”方法替换为“remove”来解决此问题。在 Windows 上，您可以在此处找到：

C:\Program Files\R\R-3.4.3\library\leaflet.extras\htmlwidgets\build\lfx-draw

此解决方案仅适用于本地，如果您在 shinyapps.io 上发布应用，则无法执行。

【讨论】：