Question

致力于构建一个闪亮的应用程序，我很少有选择，我希望创建一个提供所有选项的进一步选项。例如，

选项A. 选项B. 选项C

现在A，B，C是变量的特定值。现在我希望在选择另一个选项“选项全部”时看到详细信息，这是（A，B，C）的组合。请帮忙。

Answer 1

此处您可以使用选项All：

找到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)

@konrad表示，如果您发布可重复的示例并更清楚地定义问题，那将是一件好事。

radiobuttons选项 - 所有值的选项

1 个答案: