侧边栏面板的垂直滚动

Question

我想锁定侧边栏，以便当我向下滚动主面板时它始终在那里，我通过添加实现了它：

 style = "position: fixed; width: 25%",

侧边栏面板之后。

但是，我有很多输入滑块，当侧边栏锁定时我看不到所有滑块。这就是为什么我想在侧边栏中添加一个垂直滚动条。

我知道这在 ShinyDashboard 中是可行的，只需添加：

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

但我没有仪表板侧边栏，我有类似的东西：

ui <- fluidPage(
  
    # Sidebar layout with input and output definitions ----
    sidebarLayout(
        
        # Sidebar panel for inputs ----
        sidebarPanel(
...
...
)
        mainPanel(
...)
)

有人可以帮助我吗？我没有仪表板，我不想将其更改为仪表板。

Answer 1

解决办法是在sidebarPanel后面添加这行代码

style = "position: fixed; height: 90vh; overflow-y: auto;"