sidebar.R
In argonDash: Argon Shiny Dashboard Template

argonSidebar <- argonDashSidebar(
  vertical = TRUE,
  skin = "light",
  background = "white",
  size = "md",
  side = "left",
  id = "my_sidebar",
  brand_url = "http://www.google.com",
  brand_logo = "https://demos.creative-tim.com/argon-design-system/assets/img/brand/blue.png",
  dropdownMenus = argonDropNav(
    title = "Dropdown Menu", 
    src = "https://demos.creative-tim.com/argon-dashboard/assets/img/theme/team-4-800x800.jpg", 
    orientation = "right",
    argonDropNavTitle(title = "Welcome!"),
    argonDropNavItem(
      title = "Item 1", 
      src = "https://www.google.com", 
      icon = argonIcon("single-02")
    ),
    argonDropNavItem(
      title = "Item 2", 
      src = NULL, 
      icon = argonIcon("settings-gear-65")
    ),
    argonDropNavDivider(),
    argonDropNavItem(
      title = "Item 3", 
      src = "#", 
      icon = argonIcon("calendar-grid-58")
    )
  ),
  argonSidebarHeader(title = "Main Menu"),
  argonSidebarMenu(
    argonSidebarItem(
      tabName = "cards",
      icon = argonIcon(name = "tv-2", color = "info"),
      "Cards"
    ),
    argonSidebarItem(
      tabName = "tables",
      icon = argonIcon(name = "tv-1", color = "green"),
      "Tables"
    ),
    argonSidebarItem(
      tabName = "tabs",
      icon = argonIcon(name = "planet", color = "warning"),
      "Tabs"
    ),
    argonSidebarItem(
      tabName = "alerts",
      icon = argonIcon(name = "bullet-list-67", color = "danger"),
      "Alerts"
    ),
    argonSidebarItem(
      tabName = "medias",
      icon = argonIcon(name = "circle-08", color = "success"),
      "Medias"
    ),
    argonSidebarItem(
      tabName = "items",
      icon = argonIcon(name = "ui-04", color = "pink"),
      "Other items"
    ),
    argonSidebarItem(
      tabName = "effects",
      icon = argonIcon(name = "atom", color = "black"),
      "CSS effects"
    ),
    argonSidebarItem(
      tabName = "sections",
      icon = argonIcon(name = "credit-card", color = "grey"),
      "Sections"
    )
  ),
  argonSidebarDivider(),
  argonSidebarHeader(title = "Other Items")
)