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代碼的應用程序應該有一個期望的用戶界面，具體如下：