# NOT RUN {
if (interactive()) {
library(shiny)
library(bs4Dash)
shinyApp(
ui = dashboardPage(
navbar = dashboardHeader(
rightUi = bs4UserMenu(
name = "Divad Nojnarg",
status = "primary",
src = "https://adminlte.io/themes/AdminLTE/dist/img/user2-160x160.jpg",
title = "bs4Dash",
subtitle = "Author",
footer = p("The footer", class = "text-center"),
"This is the menu content."
)
),
sidebar = dashboardSidebar(),
body = dashboardBody(),
title = "bs4UserMenu"
),
server = function(input, output) {}
)
}
# }
Run the code above in your browser using DataLab