R - shiny - addPolygons должен вызываться как с lng, так и с lat, либо без них - PullRequest
Новая
       5

R - shiny - addPolygons должен вызываться как с lng, так и с lat, либо без них

0 голосов
/ 17 июня 2020

Я хотел бы попросить помощи здесь. У меня есть шейп-файл многоугольника, и я хотел бы отобразить его в буклете R-shiny. Тем не менее, я продолжаю получать результат: Ошибка: addPolygons необходимо вызывать как с lng, так и с lat или ни с одним из них.

Я уже пробовал с пакетом sp и пакетом sf (следующая ссылка whit: https://community.rstudio.com/t/projection-problems-with-leaflet/27747/5 ), а также изменил CRS с обоими пакетами. Снаружи от блеска работает нормально, а внутри просто не работает. 

library(rgdal)
library(sp)
library(leaflet)

wo <-readOGR("SHAPES/world/ne_50m_admin_0_countries.shp", layer = "ne_50m_admin_0_countries")
wt <- spTransform(wo, CRS("+proj=longlat +init=epsg:4326 +ellps=WGS84 +datum=WGS84 +no_defs"))


ui <- fluidPage(

    # Application title
    titlePanel("mytitle"),

        mainPanel(
           leafletOutput("map", width = "100%", height = 600)
        )
    )
)


server <- function(input, output) {

    output$map <- renderLeaflet({
       leaflet(wt) %>%
            addTiles(group = "OpenStreetMap") %>%
            addProviderTiles("CartoDB.Positron", group = "CartoDB")%>%
            addProviderTiles("Esri.WorldImagery", group = "ESRI")%>%
            setView(lng= -78.49511705 , lat = -1.47200601, zoom = 5)%>%
            addMiniMap(tiles = providers$CartoDB.Positron,
                        toggleDisplay = TRUE) %>%
            addLayersControl(baseGroups = c("OpenstreetMap", "CartoDB", "ESRI"))%>%
            addPolygons(color = "white", weight = 1, smoothFactor = 0.5, 
                        opacity = 1,0, fillOpacity = 0.5
                        #dashArray = "3",
                         #highlightOptions = highlightOptions(color = "grey", weight =2, 
                         #bringToFront = TRUE)
                        )
               })

}

# Run the application 
shinyApp(ui = ui, server = server)

Я также попытался отобразить переменную внутри addPolygons, например: 

addPolygons(data = wt, color = "white", weight = 1, smoothFactor = 0.5, 
                        opacity = 1,0, fillOpacity = 0.5
                        #dashArray = "3",
                         #highlightOptions = highlightOptions(color = "grey", weight =2, 
                         #bringToFront = TRUE)
                        )

Может ли кто-нибудь дать представление о том, что здесь происходит, пожалуйста

1 Ответ

0 голосов
/ 22 июня 2020

В addPolygons вместо data = wt попробуйте использовать data = wt ().

...