闪亮的仪表板迷你侧边栏显示文本

时间:2019-04-16 09:08:55

标签: shiny shinydashboard

我正在使用Shiny DashboardPlus,并且我希望侧边栏迷你仅显示图标。问题是文本也会出现。

仪表盘也发亮。

下面创建侧边栏菜单的代码:

MVN_DEPLOY

在这里查看:

enter image description here

1 个答案:

答案 0 :(得分:0)

我认为可能存在版本问题,因为对我来说一切正常:

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)

     

shiny_1.2.0

     

shinydashboard_0.7.1

     

shinydashboardPlus_0.6.0.9000

enter image description here