Слой GeoJson не отображается в браузере, но работает на RStudio Viewer - PullRequest
0 голосов
/ 05 ноября 2018

У меня есть блестящее приложение с листовкой. Мне нужно показать карту, а затем построить несколько линий из файлов геоджон сверху. Это работает идеально в 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 и тестирования проблемы. Дополнительной информации нет.

...