r - アクションボタンを使用してチェックボックスを非表示/表示する

Question

次のコードがあるとします...

ui.r

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 の値が偶数などの場合にのみ表示される条件付きパネルを作成することは可能でしょうか?