R Shiny -如何使用数据帧和变量作为输入来获取一个变量的水平(反应式输入)

library(shiny)

# 定义UI界面
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 创建一个输入框，用于输入数据帧的路径
      fileInput("data_file", "选择数据文件")
    ),
    mainPanel(
      # 创建一个下拉菜单，用于选择变量
      selectInput("variable", "选择变量", choices = NULL)
    )
  )
)

# 定义服务器逻辑
server <- function(input, output, session) {
  # 读取数据帧
  data <- reactive({
    req(input$data_file)
    read.csv(input$data_file$datapath)
  })
  
  # 更新变量选择菜单的选项
  observe({
    req(data())
    updateSelectInput(session, "variable", choices = names(data()))
  })
  
  # 获取选定变量的水平
  output$level <- renderText({
    req(data(), input$variable)
    levels(data()[[input$variable]])
  })
}

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