Добавление строки в Rshiny/Leaflet с st_read

Question

У меня проблема, и я не знаю, откуда она. У меня большой шейп-файл. Для лучшей производительности я пытаюсь загрузить данные с st_read() от sf package, Официальная документация гласит, что очень легко интегрировать шейп-файл в буклет / блестящий. Тем не менее, это не работает.

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)
  })
})