R中shinyapp的st_read路径

library(shiny)
library(sf)

ui <- fluidPage(
  titlePanel("shinyapp st_read路径示例"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "选择空间数据文件")
    ),
    mainPanel(
      leafletOutput("map")
    )
  )
)

server <- function(input, output) {
  output$map <- renderLeaflet({
    inFile <- input$file
    if (is.null(inFile))
      return(NULL)
    
    # 获取选择的文件路径
    file_path <- inFile$datapath
    
    # 使用st_read函数读取空间数据
    data <- st_read(file_path)
    
    # 在leaflet中展示空间数据
    leaflet() %>%
      addTiles() %>%
      addPolygons(data = data)
  })
}

shinyApp(ui, server)