shinydashboard与shinydashboardPlus -仪表板侧边栏标题差异

Question

我有一个用shinydashboard构建的闪亮的应用程序，我刚刚发现了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编号。

​