Shiny应用侧边栏半折叠但不隐藏标题的实现方法

兄弟，你现在用的sidebar-mini类是AdminLTE主题里的“迷你侧边栏”样式，它会同时把侧边栏缩成图标栏，还会把顶部标题栏的显示空间压缩。要实现只折叠侧边栏但完整保留顶部标题的效果，直接把添加的类换成sidebar-collapse就行啦，修改后的脚本是这样的：

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

如果你的Shiny用的是AdminLTE3的主题（比如用了shinydashboardPlus包），有时候单纯加sidebar-collapse可能会让顶部标题栏有点晃动，这时候可以再搭配layout-fixed类来固定顶部导航，体验更稳：

tags$script(HTML("$('body').addClass('sidebar-collapse layout-fixed');"))

顺带提一句：要是你想做个按钮让用户手动切换侧边栏的显示/隐藏，还可以把脚本改成动态触发的版本，比如给按钮加个ID叫toggle-sidebar，然后写个点击事件切换类：

tags$script(HTML("
  $('#toggle-sidebar').on('click', function() {
    $('body').toggleClass('sidebar-collapse');
  });
"))

内容的提问来源于stack exchange，提问作者Cesar