我正在尝试使用巴西人状态创建一个地图,当我在UI文件中运行此代码时,它运行良好。但是我需要创建一个反应式地图,所以我在服务器文件上写了它。
地图很好但形状数据不...任何帮助?
server <- shinyServer(function(session, input, output) {
BrasilianStates <- readOGR("UFEBRASIL.shp",encoding = "UTF-8")
output$map <- renderLeaflet
({ #RENDERIZACAO DO MAPA
leaflet(data = BrasilianStates) %>% addTiles()%>%
addMarkers(data= CDDs,icon = iconeCDD, popup = nomes, clusterOptions = markerClusterOptions())%>%
addPolygons(data = BrasilianStates,weight = 2,
opacity = 1,
color = "#660000",
dashArray = "3",
fillOpacity = 0.7, highlight = highlightOptions(weight = 5, color = "#666",dashArray = "", fillOpacity = 0.7,
bringToFront = TRUE)) })
当我只在控制台中运行时:
leaflet(data = BrasilianStates) %>% addTiles()%>%
addMarkers(data= CDDs,icon = iconeCDD, popup = nomes, clusterOptions = markerClusterOptions())%>%
addPolygons(data = BrasilianStates)
这些图在RStudio右侧的查看器选项卡中完美运行。
但是,当我在闪亮的应用程序中尝试服务器文件时,它不会呈现。
我想这可能是因为BrasilianStates
是本地数据。看看这篇帖子给deploy shiny app that uses local data