У меня есть блестящее приложение с листовкой. Мне нужно показать карту, а затем построить несколько линий из файлов геоджон сверху. Это работает идеально в RStudio Viewer, но линии геоджона не показывают в браузере .
Я проверил это: это не браузер (пробовал 3, и он никогда не работает), это не макет, не версия R, не операционная система (пробовал работать в Windows и Linux). Я попытался вручную добавить стиль к строкам и удалить загрузку из блока observe({...})
, но он все равно не работает ни в одном браузере.
РЕДАКТИРОВАТЬ: я также пытался удалить setVIew(...)
и setMaxBounds(...)
поочередно, и линии геоджон все еще не отображаются в браузере.
Я сделал репер для своего приложения:
library(shiny)
library(dplyr)
library(leaflet)
library(jsonlite)
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel(""),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(),
# Show a plot of the generated distribution
mainPanel(
leafletOutput("map", width="100%", height="600px")
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
gj <- readRDS("gj.rds")
output$map <- renderLeaflet({
leaflet() %>% addTiles() %>%
# Set the view
setView(-60.704, -63.229, zoom = 13) %>%
# Restrict the map to only show the city bounds
setMaxBounds(-60.757, -31.556, -60.651, -31.673)
})
# Show the basic lines here
observe({
leafletProxy("map") %>% addGeoJSON(toJSON(gj), layerId = "lines")
})
}
# Run the application
shinyApp(ui = ui, server = server)
Набор данных со строками огромен, поэтому я загружаю уменьшенную версию здесь. Тем не менее, он слишком большой, и я не могу поставить здесь dput
. Пожалуйста, скачайте файл: https://drive.google.com/open?id=1Ib5yr2IsuGoTmOuzeyhvIe-vjXILdEnD
РЕДАКТИРОВАТЬ: общий код здесь - это минимум, используемый для запуска базового shinyapp и тестирования проблемы. Дополнительной информации нет.