bs4UserMenu(
  ...,
  name = NULL,
  src = NULL,
  title = NULL,
  subtitle = NULL,
  footer = NULL,
  status = c("primary", "danger", "success", "warning", "info", "secondary")
)

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) {}
 )
}