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數字。