Give your apps some headroom. Hide your header until you need it: headroom.js for Shiny.
# install.packages("remotes")
remotes::install_github("JohnCoene/headspace")
This is a basic example which shows you how to solve a common problem:
library(shiny)
library(headspace)
ui <- navbarPage(
"headspace",
tabPanel(
"Home",
use_headspace(),
div(style = "height:200vh;"),
div(
style = "height:200vh;",
h3("Scroll Up")
)
)
)
server <- function(input, output) {
give_headspace()
}
shinyApp(ui, server)