使用st_read

Question

我有一个问题而且我不知道它来自哪里。我有一个大的shapefile。为了获得更好的性能，我尝试使用st_read()中的sf package加载数据。 official documentation表示将shapefile集成到传单/闪亮中应该非常容易。然而，它不起作用。

Error message: *missing value where TRUE/FALSE needed*

它适用于rgdal，但性能不太好。

我希望有人可以帮助我。

小TestData

library(shiny)
library(leaflet)
library(sf)

shapefile <- st_read("pathToshape")

shinyApp(
  ui <-fluidRow(
    column(8,leafletOutput("map", height="600px"))
  ),

server <- function(input, output, session) {
  output$map <- renderLeaflet({
    leaflet() %>% 
      addTiles() %>% 
      setView(lng=16.357795000076294, lat=48.194883921677935, zoom = 15) %>%
      addPolylines(data=shapefile, layerId = shapefile$id, group = shapefile$zeitver, color="red", weight=3,opacity=1)
  })
})