Shinydashboard 与 ShinydashboardPlus - 仪表板侧边栏标题差异

Question

我有一个用 Shinydashboard 构建的 Shiny 应用程序，我刚刚发现了 ShinydashboardPlus。 一个不错的选择是让 sidebarMenu “缩小”，或者在最小化时它不会完全消失，而只是显示每个 menuItem 的图标。 然而，使用shinydashboardPlus，当缩小时，标题会被砍掉。 使用 Shinydashboard，标题保持不变，但侧边栏完全消失。

示例代码：

library(shiny)
library(shinydashboard)
#library(shinydashboardPlus)

# Basic dashboard page template
shinyApp(
  ui = dashboardPage(
    dashboardHeader(title = "Example"),
    dashboardSidebar(#minified = TRUE,
      sidebarMenu(
        menuItem('Menu1', tabName = 'Menu1', 
                 icon = icon('folder-open')),
        menuItem('Menu2', tabName = 'Menu2',
                 icon = icon('code-branch'))
      )
    ),
    dashboardBody()
  ),
  server = function(input, output) { }
)

保留注释标记并运行它使用shinydashboard，并最初给出：

当汉堡被点击以最小化侧边栏时，整个侧边栏消失：

如果注释标记被删除以便它使用shinydashboardPlus运行，最小化它会给出这个，我在侧边栏中有图标，但标题被切碎：

有没有办法让 ShinydashboardPlus 缩小，只显示图标，但不砍掉标题？

Answer 1

干得好

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

# Basic dashboard page template
shinyApp(
  ui = dashboardPage(
    dashboardHeader(title = "Example"),
    dashboardSidebar(#minified = TRUE,
      sidebarMenu(
        menuItem('Menu1', tabName = 'Menu1', 
                 icon = icon('folder-open')),
        menuItem('Menu2', tabName = 'Menu2',
                 icon = icon('code-branch'))
      )
    ),
    dashboardBody(
      tags$style(
        '
        @media (min-width: 768px){
          .sidebar-mini.sidebar-collapse .main-header .logo {
              width: 230px; 
          }
          .sidebar-mini.sidebar-collapse .main-header .navbar {
              margin-left: 230px;
          }
        }
        '
      )
    )
  ),
  server = function(input, output) { }
)

如果标题很长，请更改width和margin-left数字。