## In ui.R
## Create a navBar with the brand "shinyBS" that is fixed to the top of the page
bsNavBar("nb1", brand="shinyBS", fixed=TRUE,
leftItems = list(<misc navbar elements>),
rightItems = list(<more navbar elements>))
## In server.R
## Change to the inverse style of navBar
modifyNavBar(session, inputId="nb1", inverse=TRUE)
Run the code above in your browser using DataLab