Shiny radioButton在不同计算之间切换，与数据表一起使用

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("Shiny radioButton示例"),
  sidebarLayout(
    sidebarPanel(
      radioButtons("calculation", "选择计算方式:",
                   choices = c("计算A", "计算B", "计算C"),
                   selected = "计算A")
    ),
    mainPanel(
      dataTableOutput("table")
    )
  )
)

server <- function(input, output) {
  output$table <- renderDataTable({
    # 根据用户选择的计算方式生成或更新数据表
    if (input$calculation == "计算A") {
      # 执行计算A并生成数据表
      data <- calculate_A()
    } else if (input$calculation == "计算B") {
      # 执行计算B并生成数据表
      data <- calculate_B()
    } else if (input$calculation == "计算C") {
      # 执行计算C并生成数据表
      data <- calculate_C()
    }
    
    # 返回生成的数据表
    datatable(data)
  })
}

shinyApp(ui, server)