Shiny의 bsCollapse 패널 표시/숨기기

Question

ShinyBS 및 Shinyjs 패키지를 사용하여 Shiny App을 제작 중이며 다른 bscollapse 패널의 라디오 버튼 입력에 따라 bscollapse 패널을 숨기거나 표시하고 싶습니다.

Parent1에서 "AAA"또는 "BBB"옵션을 선택한 경우 Parent2에 "AAAA"및 "BBBB"collapsePanels 만 표시하려고합니다.

Parent1에서 "CCC"또는 "DDD"옵션을 선택한 경우 Parent2에 "CCCC"및 "DDDD"collapsePanels 만 표시하려고합니다.

shinyjs 패키지에서 show() 및 hide() 명령을 사용하고 있지만 제대로 작동하지 않습니다. "AAA"또는 "BBB"를 선택하면 Parent2에 아무 것도 나타나지 않습니다. 이는 내가 원하지 않는 것입니다. 난 그냥이 conditionalPanel 대신 쇼()와 숨기기()를 사용하여 작업있어

library(shiny) 
library(shinyBS) 
library(shinyjs) 

server = function(input, output, session) { 

observeEvent(input$TypeRadio,{ 
if (input$TypeRadio == "AAA" || input$TypeRadio == "BBB") 
    shinyjs::show("collapse1") 
    shinyjs::hide("collapse2") 
}) 

observeEvent(input$TypeRadio,{ 
if (input$TypeRadio == "CCC" || input$TypeRadio == "DDD") 
    shinyjs::show("collapse2") 
    shinyjs::hide("collapse1")}) 
} 


ui = fluidPage(
shinyjs::useShinyjs(), 

bsCollapse(id = "collapseExample", multiple = FALSE, 
bsCollapsePanel("Parent1","", 

       radioButtons("TypeRadio", "", 
          choices = list("AAA" = "AAA", 
              "BBB" = "BBB", 
              "CCC" = "CCC", 
              "DDD" = "DDD"), 
          inline = FALSE)), 


bsCollapsePanel("Parent2","", 

       bsCollapse(id = "collapse1", 
         bsCollapsePanel("AAAA", ""), 
         bsCollapsePanel("BBBB", "")), 

       bsCollapse(id = "collapse2", 
         bsCollapsePanel("CCCC", ""), 
         bsCollapsePanel("DDDD", "")) 

         ) 
)     
) 
shinyApp(ui = ui, server = server) 

Answer 1

library(shiny) 
library(shinyBS) 
library(shinyjs) 

if(interactive()){ 
    shinyApp(
    ui <- fluidPage(
     useShinyjs(), 
     bsCollapse(id = "collapseExample", multiple = FALSE, 
       bsCollapsePanel("Parent1","", 
           radioButtons("TypeRadio", "", 
               choices = list("AAA" = "AAA", 
                  "BBB" = "BBB", 
                  "CCC" = "CCC", 
                  "DDD" = "DDD"), 
               inline = FALSE)), 
       bsCollapsePanel("Parent2","", 
           bsCollapse(id = "collapse1", 
              bsCollapsePanel("AAAA", ""), 
              bsCollapsePanel("BBBB", "")), 

           bsCollapse(id = "collapse2", 
              bsCollapsePanel("CCCC", ""), 
              bsCollapsePanel("DDDD", "")) 
           ) 
    ) 
    ), 

    server = function(input, output, session){ 

     observeEvent(input$TypeRadio,{ 
     if("AAA" == input$TypeRadio | "BBB" == input$TypeRadio){ 
      shinyjs::show("collapse1") 
      shinyjs::hide("collapse2") 
     } 

     if("CCC" == input$TypeRadio | "DDD" == input$TypeRadio){ 
      shinyjs::hide("collapse1") 
      shinyjs::show("collapse2") 
     } 
     }) 

    } 
) 
}