如何动态地选择导入的shapefile的列，以便在R Shiny中进行进一步分析？

library(shiny)
library(rgdal)

# UI部分
ui <- fluidPage(
  # 选择shapefile文件
  fileInput("shapefile", "选择Shapefile文件"),
  
  # 选择要导入和分析的列
  selectInput("column", "选择列", choices = NULL),
  
  # 显示结果
  verbatimTextOutput("result")
)

# 服务器部分
server <- function(input, output) {
  # 读取shapefile文件
  observeEvent(input$shapefile, {
    inFile <- input$shapefile
    if (!is.null(inFile)) {
      shapefile_data <- readOGR(inFile$datapath)
      
      # 更新选择列的选项
      updateSelectInput(session, "column", choices = names(shapefile_data))
    }
  })
  
  # 分析选择的列
  output$result <- renderPrint({
    column_name <- input$column
    if (!is.null(column_name)) {
      # 获取选择列的数据
      column_data <- shapefile_data[[column_name]]
      
      # 进行进一步的分析，如绘制图表、计算统计量等
      # ...
      
      # 返回结果
      column_data
    }
  })
}

# 运行应用程序
shinyApp(ui, server)