shiny - Shiny Dashboard 迷你侧边栏显示文本

Question

我正在使用 Shiny DashboardPlus，我希望 sidebar-mini 仅显示图标。问题是文本也出现了。

闪亮的仪表板也有同样的问题。

创建侧边栏菜单的代码如下：

sidebar = dashboardSidebar(
      sidebarMenu(
        menuItem("DASHBOARD1", tabName = "Spectrum", icon = icon("table")
        ), #menuItem
        menuItem("DASHBOARD2", tabName = "LTE", icon = icon("mobile-alt"))        
      )),

在这里看到它：

标签： shinyshinydashboard

Answer 1

我认为可能存在版本问题，因为这对我来说一切正常：

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
    ),
    sidebar = dashboardSidebar(
      sidebarMenu(
        menuItem("DASHBOARD1", tabName = "Spectrum", icon = icon("table")
        ), #menuItem
        menuItem("DASHBOARD2", tabName = "LTE", icon = icon("mobile-alt"))        
      )),
    body = dashboardBody(),
    title = "TEST"
  ),
  server = function(input, output) { }
)

这是示例会话信息：

R 版本 3.5.2 (2018-12-20)

闪亮_1.2.0

闪亮仪表板_0.7.1

闪亮仪表板Plus_0.6.0.9000