单选按钮选项-所有值的选项

在这里，您可以radioButtons使用全部选项来解决您的问题：

library(shiny)
library(DT)

value <- c(1,2,3)
variable <- c("A","B","C")

data <- data.frame(value, variable)

ui= fluidPage(
    radioButtons("choice","Choose:", choices = c("A","B","C","All"), selected = "All"),
      dataTableOutput("tab")
    )

server= function(input, output,session) {

  data_reactive <- reactive({
    if(input$choice =="All"){
      data <- data
    }
    else{
      data <- data[data$variable %in% input$choice, ]
    }
    data
  })

  output$tab <- DT::renderDataTable({
    datatable(data_reactive())})


}

shinyApp(ui, server)