在RShiny中呈现动态表的问题

library(shiny)

# 定义UI界面
ui <- fluidPage(
  # 创建一个tableOutput对象，用于显示表格
  tableOutput("dynamic_table")
)

# 定义服务器逻辑
server <- function(input, output) {
  # 生成动态表格数据
  dynamic_data <- reactive({
    # 在这里编写生成动态表格数据的代码
    # 可以从数据库、API接口或其他数据源获取数据
    # 进行数据处理和计算，并返回一个数据框
    # 例如：dynamic_data <- data.frame(...)
    dynamic_data <- data.frame(
      Name = c("Alice", "Bob", "Charlie"),
      Age = c(25, 30, 35),
      Gender = c("Female", "Male", "Male")
    )
    return(dynamic_data)
  })
  
  # 渲染动态表格
  output$dynamic_table <- renderTable({
    # 使用renderTable函数将动态表格数据渲染为表格
    # 并返回给tableOutput对象进行显示
    return(dynamic_data())
  })
}

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