Ошибка виджета AddLayersControl - PullRequest
Новая
       6

Ошибка виджета AddLayersControl

0 голосов
/ 29 августа 2018

Я хочу добавить слои к моей существующей карте с помощью виджета addLayersControl, но я получаю следующее: Предупреждение: ошибка в диспетчере: отсутствует аргумент «карта», отсутствует значение по умолчанию (сервер) и отсутствует аргумент «карта», с Нет ошибки по умолчанию на дисплее. Я хочу иметь возможность переключаться между различными слоями на моей карте. Я попытался включить функцию getMapdata, но все еще не могу переключаться между слоями. Воспроизводимый код: 

#loading shape files
mp<-readOGR(
  dsn="merge",
  layer="m1")

treat<- readOGR(dsn="Wastewater treatment plants map", 
                layer="Nk_Sewer_Treatment")

output$leaf<-renderLeaflet({
    leaflet(mp) %>%

      #Initializing the map
      setView(lng=36.092245, lat=-00.292115,zoom=15)%>%

      #Base map
      #Add default OpenStreetMap map tiles
      addTiles(group = "default1")%>%
      addProviderTiles("Esri.NatGeoWorldMap",group = "default")%>%  
      addProviderTiles("CartoDB.Positron",group = "custom")%>%


      addPolygons(
        data = mp,
        fillColor = "blue",
        weight = 1, smoothFactor = 0.5,
        opacity = 1.0, fillOpacity = 1.0,
        highlightOptions = highlightOptions(
          weight = 2,
          color = "red",
          fillOpacity = 0.7,
          bringToFront = TRUE
        ),
        label =~LIA,
        popup = ~paste("<strong>Area Type:</strong>",AreaTyp,
                       "<br>",
                        "<strong>Piped Water On Plot:</strong>",PpdWtrP,"%",
                       "<br>",
                       "<strong>Water Source On Plot:</strong>",WtrSrOP,"%",
                       "<br>",
                       "<strong>Flash Toilets:</strong>",FlshTlt,"%",
                       "<br>",
                       "<strong>Other Improved:</strong>",OthrImp,"%",
                       "<br>",
                       "<strong>Unimproved:</strong>",Unmprvd,"%",
                       "<br>",
                       "<strong>Open Defecation:</strong>",OpnDfct,"%",
                       "<br>",
                       "<strong>Population Per km2:</strong>",PpDnsty
                       )

      ) 

    #Overlay map
    addPolygons(
      data = treat,
      fillColor = "red",
      weight = 1, smoothFactor = 0.5,
      opacity = 1.0, fillOpacity = 1.0,
      group = "basepoly", 
    )

    #add control widget
    addLayersControl(
                    baseGroups = c("default1","default","custom"),
                    overlayGroups = c("basepoly"),
                     options = layersControlOptions(collapsed = FALSE)
                    )
  })
...