R Shiny：Leaflet Map在Shiny中使用addDrawToolbar变得灰暗

Question

我试图使用＆＃34; addDrawToolbar＆＃34;来自lealfet.extras包的函数。 相同的代码如下所示：

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

ui <- fluidPage(
  leafletOutput("mymap")
)

server <- function(input, output) {
  output$mymap <- renderLeaflet({
    leaflet() %>%
      addProviderTiles("Esri.WorldStreetMap")%>%
      addDrawToolbar(
        targetGroup='Selected',
        polylineOptions=FALSE,
        markerOptions = FALSE,
        polygonOptions = drawPolygonOptions(shapeOptions=drawShapeOptions(fillOpacity = 0
                                                                          ,color = 'red'
                                                                          ,weight = 3)),
        rectangleOptions = drawRectangleOptions(shapeOptions=drawShapeOptions(fillOpacity = 0
                                                                              ,color = 'red'
                                                                              ,weight = 3,clickable = TRUE)),
        editOptions = editToolbarOptions(edit = TRUE, selectedPathOptions = selectedPathOptions()))})
}

shinyApp(ui, server)

所以问题是当我试图在浏览器中运行脚本时，地图会变灰并且没有任何显示。

Should be a leaflet image inside the box

但是，当我评论＆＃34; addDrawToolbar＆＃34;功能，或从R控制台（仅单张查询），在前者的工作正常，即运行它，我＆＃39; M能够看到的背景图和在后者，我＆＃39; M能够得出自定义矩形/多边形程度<。 / p>

我希望在Shiny浏览器中实现相同功能，但无法实现。

任何帮助都将受到高度赞赏。