半侧杆倒塌而不隐藏标题

时间:2018-04-16 20:57:38

标签: html r shiny

我正试图将侧边栏隐藏在闪亮的app中。

在身体上使用此功能:

tags$script(HTML("$('body').addClass('sidebar-mini');"))

我得到了这个结果:

Hide side-bar

有没有办法隐藏侧边栏,而不隐藏标题,只修改此脚本?

Right way

2 个答案:

答案 0 :(得分:1)

假设您有一个名为“hide”的内置CSS类。

tags$script(HTML("$('.sidebar-mini #YOUR_SIDEBAR_ID').addClass('hide');"))

如果你想获得幻想,那么做绝对位置-9999和不透明度0之类的事情,然后在需要时“揭开它”......

答案 1 :(得分:1)

您可以定义简短标题,侧边栏折叠时会显示:

library(shiny)
library(shinydashboard)
shinyApp(
  ui = dashboardPage(
    dashboardHeader(
      title = tagList(
        tags$span(
          class = "logo-mini", "Short"
        ),
        tags$span(
          class = "logo-lg", "My Long Title"
        )
      )
    ),
    dashboardSidebar(),
    dashboardBody(
      tags$script(HTML("$('body').addClass('sidebar-mini');"))
    ),
    title = "Dashboard example"
  ),
  server = function(input, output) { }
)
}

正常:

enter image description here

已折叠:

enter image description here