R闪亮的包含按钮，可折叠面板的一部分并展开面板的另一部分

Question

我希望扩展我的R闪亮面板中的一个按钮的功能，该按钮现在可以折叠或扩展菜单的一部分。目前我使用以下类型的按钮

HTML('<button class="inline" data-toggle="collapse" data-target="#demo">Collapse Menu</button>')

点击菜单的#演示部分折叠/展开。我还想在点击按钮时折叠另一个菜单(特别是，我想折叠#demo并展开另一个id，比如#example，反之亦然(。

Answer 1

我会使用库shinyjs。在给定ID的情况下，函数切换可以满足您的需要。

library(shiny)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
actionButton(inputId = "go",label = "Button"),
div(id="div_a","Hello There",style="background-color:red;"),
div(id="div_b","General Kenobi",style="background-color:green;")
)
server <- function(input, output, session) {

hide(id = "div_b")

observeEvent(input$go,{
toggle(id = "div_a",anim = T)
toggle(id = "div_b",anim = T)
})

}
shinyApp(ui, server)