如何在闪亮中为侧边栏面板添加滚动条？

Posted 2023-03-24

【中文标题】如何在闪亮中为侧边栏面板添加滚动条？

【英文标题】：How to add scroll bar for sidebarPanel in shiny?

【发布时间】：2015-10-27 18:53:09

【问题描述】：

我必须在 sidebarPanel 中添加更多滑块，但是当我向下滚动页面时， 整个页面与 mainPanel 一起向下滚动。我真正需要的是，当我向下滚动输入滑块并更改滑块以在 Shiny 中观察 mainPanel 上的相应输出时，必须以这种方式锁定或冻结显示图形或输出的 mainPanel。

下面是ui.R的部分代码。这里我只展示了 7 个滑块，但实际上我有 31 个滑块。

library(shiny)  
shinyServer(fluidPage(  
  titlePanel("Regression"),  
  sidebarLayout(    
    sidebarPanel(   
      sliderInput("slide1","Select a value:",
                  min=min(unidf$X.17,na.rm = T),max=max(unidf$X.17,na.rm = T), value = median(unidf$X.17,na.rm = T)),  
      sliderInput("slide2","Head HIC-15:",
                  min=min(unidf$X.18,na.rm = T),max=max(unidf$X.18,na.rm = T), value = median(unidf$X.18,na.rm = T)),  
      sliderInput("slide3","Select a value:",
                  min=min(unidf$X.19,na.rm = T),max=max(unidf$X.19,na.rm = T), value = median(unidf$X.19,na.rm = T)),  
      sliderInput("slide4","Select a value:",
                  min=min(unidf$X.20,na.rm = T),max=max(unidf$X.20,na.rm = T), value = median(unidf$X.20,na.rm = T)),  
      sliderInput("slide5","Lateral force (kN):",
                  min=min(unidf$X.21,na.rm = T),max=max(unidf$X.21,na.rm = T), value = median(unidf$X.21,na.rm = T)),  
      sliderInput("slide6","Select a value:",
                  min=min(unidf$X.22,na.rm = T),max=max(unidf$X.22,na.rm = T), value = median(unidf$X.22,na.rm = T)),  
      sliderInput("slide7","Average deflection (mm):",
                  min=min(unidf$X.23,na.rm = T),max=max(unidf$X.23,na.rm = T), value = median(unidf$X.23,na.rm = T))  

    ),  
    mainPanel(...  

【问题讨论】：

好问题，但对我来说很奇怪。在我的情况下，我需要修复侧边栏和标题面板，因为在主面板中我有很多对象。无论如何，尝试所有控件都可以在不滚动的情况下可见是一个好习惯。您可以将其中一些放在主面板中，例如

【参考方案1】：

我也有类似的情况。这是我的解决方案：

dashboardSidebar(
    tags$head(
      tags$style(html("
                      .sidebar  height: 90vh; overflow-y: auto; 
                      " )
      )
    ),
... ...

希望对你有帮助。

【讨论】：

请查看我已更新的代码并帮助我根据您的解决方案操作代码。