主页 / coding / 问题 / 78028385
Accepted
Julian
Asked: 2024-02-20 23:07:29 +0800 CST

将嵌套侧边栏添加到 bslib 中的 page_navbar

  • 772

我有以下应用程序：

library(bslib)
library(shiny)

id <- "hi"
ns <- NS(id)
page_navbar(
  id = ns("navbar"),
  title = "Example App",
  sidebar =  sidebar(
    id = ns("sidebar"),
    open = "open"
  ),
  nav_panel(
    title = "Overview", 
    h1("Overview")),
  nav_panel(
    title = "Table", 
    h1("table"))
)
)

我想在右侧添加第二个（关闭的）侧边栏。根据可能链接的文档page_fillable()，当我坚持时，我的方法不会让我走上正确的轨道page_navbar。有什么提示吗？

我的做法：

page_navbar(
  layout_sidebar(
    sidebar = sidebar("Left sidebar"),
    layout_sidebar(
      sidebar = sidebar("Right sidebar", position = "right", open = FALSE),
    )
  ),
  nav_panel(
    title = "Overview", 
    h1("Overview")),
  nav_panel(
    title = "Table", 
    h1("table"))
  )
)

1 个回答

  1. Best Answer

    看起来不可能 with page_navbar，但你可以得到一些接近的东西navset_underline。

    ui <- page_fillable(
  h1("Left and right sidebar", class = "px-3 my-3"),
  layout_sidebar(
    sidebar = sidebar("Left sidebar"),
    layout_sidebar(
      sidebar = sidebar("Right sidebar", position = "right", open = FALSE),
      navset_underline(
        nav_panel(
          title = "Overview", 
          h1("Overview")),
        nav_panel(
          title = "Table", 
          h1("table"))
      ),
      border = FALSE
    ),
    border_radius = FALSE,
    fillable = TRUE,
    class = "p-0"
  )
)

shinyApp(
  ui = ui,
  server = function(input, output){}
)
    • 1

相关问题