Question

社区，

我正在尝试用闪亮的Gui写一个顶部有标题栏，底部有状态栏，中间有一个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中我会用＆＃34;宽度：100％＆＃34;但这似乎并没有闪亮的效果。我得到的表格太大而状态栏消失了，或者我必须将高度设置为固定值（例如600px），这显然不会在其他计算机上显示预期的结果。

我在上面上传了两张图片，显示了我的意思。

非常感谢你的Matthias

在纯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>

Answer 1

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

NavListPanel的宽度也不等于12.由于某些原因，如果我将with设置为c（2,10），我会将内容浮动在右边框上。宽度也不允许非整数，如c（2,9.5）。

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<table>
  <tbody>
    <tr>
      <td>1</td>
      <td>2</td>
      <td>3</td>
    </tr>
    <tr>
      <th>Col 1</th>
      <th>Col 2</th>
      <th>Col 4</th>
    </tr>
  </tbody>
</table>

<table>
  <thead>
    <tr>
      <th>Header
    </tr>
  </thead>
  <tbody>
    <tr>
      <td>Foo</td>
    </tr>
  </tbody>
</table>

Answer 2

只需将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代码后，您的应用应具有所需的ui，如下所示：

和

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

2 个答案: