利用用户输入的单选按钮填充Shiny数据表格。

1.创建一个包含单选按钮的Shiny应用程序。本示例使用radioButtons()函数来创建单选按钮。在本例中，我们有两个单选按钮，用于选择数据集名称（iris或mtcars）。

ui <- fluidPage(
  radioButtons(inputId = "dataset",
               label = "请选择数据集:",
               choices = c("iris", "mtcars"))
)

2.在Shiny应用程序中，我们需要定义数据表格的输出对象。我们使用renderDataTable()函数再结合调用的变量和选项，将数据渲染到数据表格中。以下是定义输出表格的代码示例：

output$table <- renderDataTable({
  if(input$dataset == "iris"){
    iris
  } else {
    mtcars
  }
})

在上述示例中，如果选择了“iris”数据集，那么表格将填充iris数据集内容，否则，将填充mtcars数据集。 3.将上述ui和server部分整合，并在RStudio中运行代码即可。完整代码如下：

library(shiny)
library(DT)

ui <- fluidPage(
  radioButtons(inputId = "dataset",
               label = "请选择数据集:",
               choices = c("iris", "mtcars")),
  
  dataTableOutput(outputId = "table")
)

server <- function(input, output){
  
  output$table <- renderDataTable({
    if(input$dataset == "iris"){
      iris
    } else {
      mtcars
    }
  })
}

shinyApp(ui, server)