我一直在努力shinyBS
创建一组可折叠的面板。在下图中,一次只能打开一个面板(因为参数multiple
默认为FALSE
),但可以同时打开所有三个面板。
用户界面
library(shiny)
library(shinyBS)
shinyUI(fluidPage(
bsCollapse(
id = "stuff.all",
bsCollapsePanel(title = "Load Data", "Load the files"),
bsCollapsePanel(title = "Set Parameters", "Set the parameters"),
bsCollapsePanel(title = "Teacher Settings", "Choose the teachers")
)
))
服务器.R
library(shiny)
library(shinyBS)
shinyServer(function(input, output) {})
是什么导致了这种bsCollapse
行为multiple = TRUE
,以及将来如何防止它?参考:https ://ebailey78.github.io/shinyBS/docs/Collapses.html
实际上,我在写问题时就想到了这一点,所以我打算回答我自己的问题。