A Shiny app with the header (title) panel fixed in place at the top as the user scrolls down.

app.R

header <- headerPanel("Hello Shiny!")
header[[2]]$attribs$id = "header"

ui <- fluidPage(
  tags$head(
    tags$link(rel = "stylesheet", type = "text/css", href = "custom.css")
  ),
  header,
  sidebarLayout(
    sidebarPanel(sliderInput("obs", "Number of observations:", min = 0, max = 1000, value = 500)),
    mainPanel(plotOutput("distPlot", height = "2000px"))
  )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
  })
}

shinyApp(ui, server)

custom.css

/* NOTE: put this file in a subdirectory named "www" */

#header {
  position: fixed;
  z-index: 100000;
}

/* TODO: push content down */