R，Siny：NavListPanel顶部和底部的栏跨整个页面

我想写一个桂与在顶部标题栏，底部和状态栏闪亮navListPanel在中间。有很多的例子有光泽网上，帮助我走到今天这一步：

ui <- bootstrapPage( 
     fluidRow(
      column(8, 
       titlePanel("My Shiny Panel App") 
     ), 
      column(4, 
       div(img(src='https://www.bigdatacertification.in/wp-includes/images/hadoopr1.jpg', width="100px", height="80px"), style="float:right") 
     ) 
     ), 
     fluidRow(
      navlistPanel(
      tabPanel("Option 1",icon=icon("line-chart"), 
        "tiny content" 
      ), 
      tabPanel("Option 2", icon=icon("filter"), 
        dataTableOutput('table') 
      ), 
      tabPanel("Option 3", icon=icon("retweet"), 
        "content" 
      ), 
      tabPanel("Option 4", icon=icon("money"), 
        "content" 
      ), 
      tabPanel("Option 5", icon=icon("area-chart"), 
        "content" 
      ), 
      widths=c(2,10) 
     ) 
     ), 
     fluidRow( 
      column(12, br(), 
       verbatimTextOutput("StausText") 
     ) 
     ) 
) 

server <- function(input, output) { 

    output$table <- renderDataTable(iris) 
    output$StausText <- renderText("Status: calculating xyz  Connection to DB: established ....") 

} 

shinyApp(ui = ui, server = server)

现在我想通过这么多的增加navListPanel的高度，它跨越了整个页面。底部的状态栏仍然可见，并且应该在tabPanels中出现滚动条。

在纯HTML中，我会用“宽度：100％”来做到这一点，但这看起来没有用。我得到的表格如此之大以至于状态栏消失，或者我必须将高度设置为固定值（例如600px），这显然不会在其他计算机上显示预期结果。

我上传了两张图片，展示了我的意思。

非常感谢您马蒂亚斯

在纯HTML我只想做这样的：

<!DOCTYPE html> 
<html> 
<body> 

<div style="position:fixed; top:0; left:0; right:0; height:100px; background-color: #abcdef;"> 
    <h1>Meine App</h1> 
</div> 

<div style="position:fixed; top:100px; bottom:100px; left:0; right:0; background-color:#F63; overflow:auto;"> 
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim. Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu. In enim justo, rhoncus ut, imperdiet a, venenatis vitae, justo. Nullam dictum felis eu pede mollis pretium. Integer tincidunt. Cras dapibus.Vivamus elementum semper nisi. Aenean vulputate eleifend tellus. Aenean leo ligula, porttitor eu, consequat vitae, eleifend ac, enim. Aliquam lorem ante, dapibus in, viverra quis, feugiat a, tellus. Phasellus viverra nulla ut metus varius laoreet. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit amet orci eget eros faucibus tincidunt. Duis leo. Sed fringilla mauris sit amet nibh. Donec sodales sagittis magna. Sed consequat, leo eget bibendum sodales, augue velit cursus nunc, quis gravida magna mi a libero. Fusce vulputate eleifend sapien. Vestibulum purus quam, scelerisque ut, mollis sed, nonummy id, metus. Nullam accumsan lorem in dui. Cras ultricies mi eu turpis hendrerit fringilla. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; In ac dui quis mi consectetuer lacinia. Nam pretium turpis et arcu. Duis arcu tortor, suscipit eget, imperdiet nec, imperdiet iaculis, ipsum. Sed aliquam ultrices mauris. Integer ante arcu, accumsan a, consectetuer eget, posuere ut, mauris. Praesent adipiscing. Phasellus ullamcorper ipsum rutrum nunc. Nunc nonummy metus. Vestibulum volutpat pretium libero. Cras id dui. Aenean ut eros et nisl sagittis vestibulum. Nullam nulla eros, ultricies sit amet, nonummy id, imperdiet feugiat, pede. Sed lectus. Donec mollis hendrerit risus. Phasellus nec sem in justo pellentesque facilisis. Etiam imperdiet imperdiet orci. Nunc nec neque. Phasellus leo dolor, tempus non, auctor et, hendrerit quis, nisi. Curabitur ligula sapien, tincidunt non, euismod vitae, posuere imperdiet, leo. Maecenas malesuada. Praesent congue erat at massa. Sed cursus turpis vitae tortor. Donec posuere vulputate arcu. Phasellus accumsan cursus velit. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Sed aliquam, nisi quis porttitor congue, elit erat euismod orci, ac placerat dolor lectus quis orci. Phasellus consectetuer vestibulum elit. Aenean tellus metus, bibendum sed, posuere ac, mattis non, nunc. Vestibulum fringilla pede sit amet augue. In turpis. Pellentesque posuere. Praesent turpis. Aenean posuere, tortor sed cursus feugiat, nunc augue blandit nunc, eu sollicitudin urna dolor sagittis lacus. Donec elit libero, sodales nec, volutpat a, suscipit non, turpis. Nullam sagittis. Suspendisse pulvinar, augue ac venenatis condimentum, sem libero volutpat nibh, nec pellentesque velit pede quis nunc. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Fusce id purus. Ut varius tincidunt libero. Phasellus dolor. Maecenas vestibulum mollis diam. Pellentesque ut neque. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. In dui magna, posuere eget, vestibulum et, tempor auctor, justo. In ac felis quis tortor malesuada pretium. Pellentesque auctor neque nec urna. Proin sapien ipsum, porta a, auctor quis, euismod ut, mi. Aenean viverra rhoncus pede. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Ut non enim eleifend felis pretium feugiat. Vivamus quis mi. Phasellus a est. Phasellus magna. In hac habitasse platea dictumst. Curabitur at lacus ac velit ornare lobortis. Curabitur a felis in nunc fringilla tristique. Morbi mattis ullamcorper velit. Phasellus gravida semper nisi. Nullam vel sem. Pellentesque libero tortor, tincidunt et, tincidunt eget, semper nec, quam. Sed hendrerit. Morbi ac felis. Nunc egestas, augue at pellentesque laoreet, felis eros vehicula leo, at malesuada velit leo quis pede. Donec interdum, metus et hendrerit aliquet, dolor diam sagittis ligula, eget egestas libero turpis vel mi. Nunc nulla. Fusce risus nisl, viverra et, tempor et, pretium in, sapien. Donec venenatis vulputate lorem. Morbi nec metus. Phasellus blandit leo ut odio. Maecenas ullamcorper, dui et placerat feugiat, eros pede varius nisi, condimentum viverra felis nunc et lorem. Sed magna 
</div> 

<div style="position:fixed; bottom:0; left:0; right:0; height:100px; background-color:#abcdef;"> 
    Staus: ... 
</div> 

</body> 
</html>

来源

2017-07-07 Bernd Meyer

你可以使用'renderPrint'，而不是'renderText'动态增加高度，例如[这个例子]（https://shiny.rstudio.com/gallery/custom-input-control.html） – parth

但我不希望改变状态栏的高度。状态栏应该移动到底部。我认为这可以通过增加上面Panel元素的高度来完成。 –

我分享了迄今为止解决问题所做的更改，希望它有所帮助。后续[这]（https://gist.github.com/chaudharyparth/2caa8d1ba1aef778515e980ce0c4d36d）更新的代码 – parth

作为一种变通方法解决方案，我现在用的是现在版本。它看起来有点不专业，因为它不使用闪亮的行和列环境。相反，它将每行放入一个div对象中。这不是这种对象的预期用途（我猜）。

此外NavListPanel的宽度不加起来12.出于某种原因，我得到的内容漂浮在右边界，如果我设置与c（2,10）。此外，宽度不允许像c（2,9.5）那样的非整数。

library(shiny) 

ui <- ui <- bootstrapPage(
    div(style="position:fixed; top:0; left:0; right:0; height:80px; background-color: #abcdef;", 
    fluidRow(
    column(8, 
      titlePanel("My Shiny Panel App")), 
    column(4, 
      div(img(src='https://www.bigdatacertification.in/wp-includes/images/hadoopr1.jpg', width="100px", height="80px"), style="float:right;padding-right:10px")) 
)), 
    div(style="position:fixed; top:80px; bottom:40px; left:0; right:0; background-color:#F63; overflow-x:hidden; overflow-y:scroll;", 
    fluidRow(
     navlistPanel(
      tabPanel("Option 1",icon=icon("line-chart"), 
        "tiny content" 
     ), 
      tabPanel("Option 2", icon=icon("filter"), 
        dataTableOutput('table') 
     ), 
      tabPanel("Option 3", icon=icon("retweet"), 
        "content" 
     ), 
      tabPanel("Option 4", icon=icon("money"), 
        "content" 
     ), 
      tabPanel("Option 5", icon=icon("area-chart"), 
        "content" 
     ) 
      , 
      widths=c(2,9) 
     ) 
)), 
    div(style="position:fixed; bottom:0; left:0; right:0; height:40px; background-color:#abcdef;", 
    fluidRow( 
    column(12, 
      verbatimTextOutput("StausText") 
))) 
) 

server <- server <- function(input, output) { 
    output$table <- renderDataTable(iris) 
    output$StausText <- renderPrint("Status: calculating xyz  Connection to DB: established ....") 

} 

shinyApp(ui = ui, server = server)

来源

2017-07-11 08:39:12

还有一个更简单的方法只需添加tags$head(tags$style(HTML(".tab-content { height: 83vh; overflow-y: auto !important; }")))您最初的代码如下做到这一点：

ui <- bootstrapPage( 
     fluidRow(
     column(8, 
       titlePanel("My Shiny Panel App") 
     ), 
     column(4, 
       div(img(src='https://www.bigdatacertification.in/wp-includes/images/hadoopr1.jpg', width="100px", height="80px"), style="float:right") 
     ) 
     ), 
     fluidRow(
     navlistPanel(
      tags$head(tags$style(HTML(".tab-content { height: 83vh; overflow-y: auto !important; }"))), 
      tabPanel("Option 1",icon=icon("line-chart"), 
        "tiny content" 
      ), 
      tabPanel("Option 2", icon=icon("filter"), 
        dataTableOutput('table') 
      ), 
      tabPanel("Option 3", icon=icon("retweet"), 
        "content" 
      ), 
      tabPanel("Option 4", icon=icon("money"), 
        "content" 
      ), 
      tabPanel("Option 5", icon=icon("area-chart"), 
        "content" 
      ), 
      widths=c(2,10) 
     ) 
     ), 
     fluidRow( 
     column(12, br(), 
       verbatimTextOutput("StausText") 
     ) 
     ) 
    ) 

    server <- function(input, output) { 

     output$table <- renderDataTable(iris) 
     output$StausText <- renderText("Status: calculating xyz  Connection to DB: established ....") 

    } 

    shinyApp(ui = ui, server = server)

加入以上的CSS代码的应用程序应该有一个期望的用户界面，具体如下：