r使用操作按钮隐藏/显示复选框

假设我有以下代码

用户界面

库（闪亮）
ui您可以使用软件包执行以下操作：

在ui中，将字段初始化为隐藏，并在单击按钮时调用切换

ui.R：

library(shiny)
library(shinyjs)

shinyUI(fluidPage(

  shinyjs::useShinyjs(),

  actionButton("fishButton", label = "Fish"),
  hidden(
    checkboxGroupInput("Check1",label=h4 ("Fish:"), choices = c("Bass","Shark","Tuna"))
  )
))

server.R

library(shiny)
library(shinyjs)

shinyServer(function(input, output) {
  observeEvent(input$fishButton, {
    toggle("Check1")
  })
})

您可以使用软件包执行以下操作：

在ui中，将字段初始化为隐藏，并在单击按钮时调用切换

ui.R：

library(shiny)
library(shinyjs)

shinyUI(fluidPage(

  shinyjs::useShinyjs(),

  actionButton("fishButton", label = "Fish"),
  hidden(
    checkboxGroupInput("Check1",label=h4 ("Fish:"), choices = c("Bass","Shark","Tuna"))
  )
))

server.R

library(shiny)
library(shinyjs)

shinyServer(function(input, output) {
  observeEvent(input$fishButton, {
    toggle("Check1")
  })
})

您可以在ui端使用uiOutput（）和在服务器端（可能）生成的checkboxGroupInput（）来完成此操作。我没有做过这个特定的事情，但一直都在使用服务器端输入。您可以在ui端使用uiOutput（）和在服务器端（可能）生成的checkboxGroupInput（）来完成这项工作。我没有做过这个特定的事情，但一直使用服务器端输入。您好，我使用了您的解决方案，但现在我在筛选数据时遇到了一个问题：
if（exists（input$Check1））{数据一个可复制的示例可能会有所帮助，但我猜您正在尝试根据标记的复选框对数据进行子集划分。这可能会起作用：df Hi，我使用了您的解决方案，但现在我在筛选数据时遇到了一个问题：
if（exists（input$Check1））{datas一个可复制的示例可能会有所帮助，但我猜您正在尝试根据标记的复选框对数据进行子集划分