如何正确地在R shiny服务器函数中设置id列？

server <- function(input, output) {
  # 创建一个响应式对象，将id列作为其值
  id_column <- reactive({
    # 在这里进行id列的处理和计算
    # 例如，可以从数据库中获取id列的值，或者根据其他输入进行计算
    # 这里只是一个示例，你需要根据实际情况进行修改
    id <- c(1, 2, 3, 4, 5)
    id
  })
  
  # 在输出中使用id列
  output$data <- renderDataTable({
    # 使用响应式对象中的id列
    datatable(data.frame(id = id_column()))
  })
}

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