R Shiny: Карта листовки становится серой при использовании addDrawToolbar в Shiny - PullRequest
Новая
       7

R Shiny: Карта листовки становится серой при использовании addDrawToolbar в Shiny

0 голосов
/ 23 мая 2018

Я пытаюсь использовать функцию "addDrawToolbar" из пакетов 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)

Так что проблема в том, что когда я пытаюсь запустить скрипт в браузере, карта становится серой, и ничего не отображается.

Должно быть изображением листовки внутри поля

Но, когда я закомментирую запросы из функции "addDrawToolbar" или запускаю их из консоли R (только запрос листовки),он работает нормально, т.е. в первом я могу видеть фоновую карту, а во втором я могу нарисовать пользовательский прямоугольный / многоугольный экстент.

Я хочу добиться того же в браузере Shiny, но не могу сделатьтак.

Любая помощь будет принята с благодарностью.

...