我希望从 {shinydashboard} 和 {bs4Dash} 转向 {bslib}，同时保留拥有我的应用程序中的全局可折叠侧边栏。
在此{bslib} vignette一些函数如 layout_sidebar() 或 page_navbar() 用作示例，但我在最新版本的 {bslib} 中找不到第一个函数> (0.4.2) 我也无法在 page_navbar() 函数中找到 sidebar 参数(对于 sidebar() 函数)。
一定有一个简单的解释，但我不明白为什么。小插图是否已经过时并且这些功能已被删除？
我尝试直接从 github 存储库 ( rstudio/bslib ) 安装，但问题是相同的。
更一般地说，是否可以专门使用 {shiny} 和 {bslib} 而无需额外的 Javascript 来利用可折叠的全局侧边栏，因为它可以在 中完成>{bs4Dash} 使用 bs4Dash::dashboardSidebar() ？
我喜欢 {bslib} 提供的可能性(使用 bootstrap 5 和 bs_add_variables() 进行微调)，并且希望有一个干净的侧边栏解决方案。如果这不存在，有人知道它什么时候可用吗？
非常感谢!
最佳答案
您可以安装bslib的开发版本:
remotes::install_github("rstudio/bslib")
那么一个例子是:
library(shiny)
library(bslib)
library(ggplot2)
ui <- page_navbar(
nav(
"Plot",
plotOutput("gg")
),
sidebar = sidebar(
numericInput("test", "Test", value = 5)
)
)
server <- function(input, output, session) {
output[["gg"]] <- renderPlot({
ggplot(
iris, aes(x = Sepal.Length, y = Sepal.Width)
) + geom_point()
})
}
shinyApp(ui, server)
关于r - 使用 bslib 的可折叠侧边栏无需额外的 JS？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/75964664/