Листовка DrawToolbar с листовкой Proxy в R Shiny

Question

Мне нравится добавлять и удалять панель инструментов при переключении кнопки.Но это не работает.Может быть, ошибка связана с 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)

Answer 1

Выглядит как нерешенная проблема с leafletProxy.Как предлагается в вашей ссылке, вы можете обойти это, заменив два метода «removeFrom» просто «удалить» в lfx-draw-bindings.js.В Windows вы можете найти это здесь:

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

Это решение работает только локально, и не будет работать, если вы опубликуете свое приложение на shinyapps.io.