闪亮 - 避免重叠的 titlePanel

Question

我想在我的应用 windows 上修复一个 titlePanel（位置：固定）。但是当向下滚动时，后者会被下面的主面板覆盖。关于如何将 titlePanel 保持在其他面板之上的任何想法？（或任何其他导致具有样式功能的漂亮 header 的解决方案 - 例如对齐、background-color 等）

illustration

代码：

library(shiny)
library(readr)

text <- read_file(file.path(R.home("doc"), "AUTHORS"))

shinyApp(
  ui = fluidPage(

    
    titlePanel(h1(id="title", "Fixed title that I'd like not to be overlapped",
                  align="center",style='position:fixed')),
    
    br(), br(),br(), br(),
    
    sidebarLayout(
      position = "right",
      sidebarPanel(),
      
      mainPanel(
        htmlOutput("text")))
    
    
  ),
  server = function(input, output, session) {
    output$text <- renderText({
      return(paste(text,text,text,text))})
  }
)

Answer 1

应该这样做：

library(shiny)
library(readr)

text <- read_file(file.path(R.home("doc"), "AUTHORS"))

shinyApp(
    ui = fluidPage(
        titlePanel(h1(
            id="title", "Fixed title that I'd like not to be overlapped",
            align="center",
            style='position:fixed; background-color: #FFF; z-index: 1; top: -20px;')
        ),
        
        br(), br(),br(), br(),
        
        sidebarLayout(
            position = "right",
            sidebarPanel(),
            
            mainPanel(
                htmlOutput("text")))
        
        
    ),
    server = function(input, output, session) {
        output$text <- renderText({
            return(paste(text,text,text,text))})
    }
)

闪亮 - 避免重叠的 titlePanel

Shiny - avoid overlapped titlePanel

r

shiny