Shiny 闪亮布局：构建一个闪亮的页面，其中包含一个可滚动的面板和一个保持固定的面板

我想用以下内容构建一个面板：

黄色面板是显示绘图的地方，如果生成多个绘图且无法在页面上查看，则应可滚动。绿色面板应该像页面上的页脚一样，即使在滚动黄色面板时也会被修复

这是到目前为止我的代码。我已经设法得到了蓝色，黄色和绿色面板，但不知道如何使事情滚动和修复

data <- mtcars

ui <- fluidPage(
  tags$head(
    tags$style(HTML("body, pre { height: 100%}")),
    tags$style("#panel1 {background: green; height: 100%; position: fixed}"),
  ),

  fluidRow(id='row1',
    column(2,id='panel1',
      selectizeInput(inputId= "obs", label= "Obs", 
                     choices= names(mtcars), 
                     selected= names(mtcars)[1],
                     multiple=F),
      selectizeInput(inputId= "sublevel", label= "Sublevel", 
                     choices= sort(unique(mtcars$cyl)), 
                     selected= sort(unique(mtcars$cyl))[1],
                     multiple=F)
    ),
    column(10, id='panel2',offset = 2,
           fluidRow(tableOutput("tab")),
           fluidRow(textOutput("hi"))
    )
  )
)

server <- function(input, output){
  sorted <- reactive({data %>% arrange_(input$obs) %>% filter(cyl == input$sublevel)})
  output$tab= renderTable(sorted())
  output$hi<-renderPrint(paste0("hello"))
}

shinyApp(ui = ui, server = server)

Any help is very much appreciated.

数据给你

重点是：


使用
absolutePanel
设置左、右、上、下位置
使用
高度
和
宽度
限制框
在css中，使用
overflow:auto用于黄色框滚动扩展元素


数据可能使用iframe作为黄色面板，类似于？