R Shiny 包含折叠面板的一部分并展开另一部分的按钮

【问题标题】：R Shiny include button that collapses one part and expands another part of a panelR Shiny 包含折叠面板的一部分并展开另一部分的按钮
【发布时间】：2020-07-21 09:08:31
【问题描述】：

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

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

菜单的#demo 部分在点击时折叠/展开。我还想在单击按钮时折叠另一个菜单（具体来说，我想折叠 #demo 并展开另一个 ID，例如 #example，反之亦然）。

【问题讨论】：

标签： html r shiny

【解决方案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)

【讨论】：