r - 如何使用 actionButton 删除使用 addDrawToolbar 创建的多边形

Question

我正在创建一个闪亮的地图应用程序。我正在寻找一种方法来使用放置在侧边栏上的 actionButton 删除使用 addDrawToolbar 创建的多边形。示例代码如下。

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

ui <- fluidPage(
  titlePanel("ShinyApp"),
  sidebarLayout(
    sidebarPanel(
      actionButton("delete","DELETE"),
    ),
    mainPanel(
      leafletOutput('maps')
    )
  )
)

server <- function(input, output, session) {
  
  output$maps <- renderLeaflet({leaflet()%>%addTiles()%>%
      addDrawToolbar(
        targetGroup='draw',
        editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()),
        rectangleOptions = F, 
        polylineOptions = F, 
        markerOptions = F, 
        circleOptions=F,
        circleMarkerOptions=F)
    })
  
  observeEvent(input$delete, {
    
    #process
    leafletProxy("maps")%>%
      removeDrawToolbar(clearFeatures=TRUE)
  })

}
shinyApp(ui, server)

网上说可以用 删除removeDrawToolbar (clearFeatures = TRUE)，但是无法实现。

如果有人知道或有可以用作参考的网页，如果您能告诉我，我将不胜感激。

标签： rshinyleafletgis