r使用操作按鈕隱藏/顯示復選框

Question

說我有以下代碼...

用戶界面

library(shiny)

    ui <- fluidPage(
      actionButton("fishButton", label = "Fish"),
      checkboxGroupInput("Check1",label=h4 ("Fish:"), choices = c("Bass","Shark","Tuna")),
      actionButton("reptileButton", label = "Reptile"),
      checkboxGroupInput("Check2",label=h4 ("Reptile:"), choices = c("Komodo","Skink","Snake")),
      actionButton("mammalButton", label = "Mammal"),
      checkboxGroupInput("Check3",label=h4 ("Mammals:"), choices = c("Dog","Cat","Bear")),
      actionButton("birdButton", label = "Bird"),
      checkboxGroupInput("Check4",label=h4 ("Birds:"), choices = c("Budgie","Parrot","Cockatiel")),
      actionButton("amphibianButton", label = "Amphibian"),
      checkboxGroupInput("Check5",label=h4 ("Amphibian:"), choices = c("Frog","Toad","Salamander"))
    )

有沒有一種方法可以通過單擊適當的actionButton來使用條件面板來隱藏/顯示checkboxGroups？ 據我了解，actionButton僅存儲一個整數，該整數從0開始，每次單擊該按鈕時增加1，這在這種情況下似乎沒有太大幫助。 是否可以有一個僅在其actionButton值為偶數或類似數值時才顯示自己的條件面板？

Answer 1

您可以使用ShinyJS包：

install.packages("shinyjs")

在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"))
  )
))

服務器

library(shiny)
library(shinyjs)

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