如何显示和隐藏反应按钮的选项？答案

【问题标题】：How can show and hide options from a reactive Button?如何显示和隐藏反应按钮的选项？
【发布时间】：2020-12-27 06:03:13
【问题描述】：

我不知道该如何处理。

我有三个按钮，我希望当用户选择其中一个按钮时，会出现一个带有选项的复选框，并且当用户更改按钮时，会显示带有选项的复选框。

例子

actionButton("casos_button", "Casos", class = "btn-primary "),
actionButton("muertes_button", "Muertes", class = "btn-primary "),
actionButton("hospitalizados", "Hospitalizados", class = "btn-primary "),

如果用户选择第一个按钮，则会出现一个带有 3 个选项的复选框，如果他选择第二个按钮，则对应于第一个按钮的选项会消失，并且会出现第二个按钮的复选框选项。

按钮 1 按钮 2 按钮 3

如果用户选择按钮 1，则会出现一个带有 3 个选项的复选框如果用户选择按钮 2，则会出现一个带有 4 个选项的复选框如果用户选择按钮 3，则会出现一个带有 2 个选项的复选框

我是一个闪亮的菜鸟，我真的很感谢你的直升机

【问题讨论】：

此链接应该对您有所帮助。 (shiny.rstudio.com/reference/shiny/1.0.3/observeEvent.html)@编码
谢谢！但是他们正在渲染一个数据表我怎样才能渲染一个复选框组选项？
试试这个，据我了解，您想根据用户的决定显示和隐藏选项。此示例添加了一个操作按钮，您将添加一个复选框而不是它。 shinyApp(ui = basicPage(actionButton("go", "Go")),server = function(input, output, session){observeEvent(input$go,{insertUI("#go", "afterEnd",actionButton("dynamic", "click to remove")) observeEvent(input$dynamic, {removeUI("#dynamic")}, ignoreInit = TRUE, once = TRUE)})})

标签： r shiny shiny-server shiny-reactivity

【解决方案1】：

这里有一个解决方案，使用shinyjs先隐藏checkboxGroupInput：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  actionButton("button_1", "First Options"),
  actionButton("button_2", "Second Options"),
  hidden(checkboxGroupInput("options", "select the options", c("A", "B")))
)

server <- function(input, output, session) {
  
  observeEvent(input$button_1, {
    show("options")
    updateCheckboxGroupInput(session,
                             "options",
                             choices = c("A", "B"))
  })
  
  observeEvent(input$button_2, {
    show("options")
    updateCheckboxGroupInput(session,
                             "options",
                             choices = c("C", "D"))
  })
}

shinyApp(ui, server)

【讨论】：

是的！这正是我想要的，谢谢