Question

我有一个使用传单制作的Shiny App。我需要显示一张地图，然后从顶部的geojson文件中绘制一些线条。这在RStudio Viewer上完全可行，但是geojson行在浏览器上未显示 。

我已经检查过：它不是浏览器（尝试3，并且永远无法运行），不是布局，不是R版本，不是操作系统（尝试在Windows和Linux上运行）。我尝试手动向行添加样式，并从observe({...})块中删除负载，但是仍然无法在任何浏览器上使用。

编辑：我也尝试过交替删除setVIew(...)和setMaxBounds(...)，并且geojson行仍然没有出现在浏览器中。

我为我的应用做了一个reprex：

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和测试问题的最低要求。没有其他信息。

GeoJson图层未显示在浏览器上，但可以在RStudio Viewer上使用

0 个答案: