4

我必须在 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(...
4

1 回答 1

2

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

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

我希望它可以帮助你。

于 2016-06-06T16:47:48.747 回答