navbar.R

argonNav <- argonDashNavbar(
  argonDropNav(
    title = "Theme 2 - Sustainable Livelihoods",
    src = "https://pbs.twimg.com/profile_images/1191981430689144834/Em5N9JbQ_400x400.jpg"
  )
  
  # vertical = FALSE,
  # skin = "light",
  # background = "white",
  # size = "lg",
  # side = "right",
  # argonRow(
  #   argonColumn(
  #     width = 12,
  #     fluidRow(
  #       column(6,
  #       argonSidebarMenu(
  #         argonSidebarItem(
  #           tabName = "modul1",
  #           icon = argonIcon(name = "tv-2", color = "info"),
  #           "Database Profitability"
  #         ))),
  #       
  #       column(6,
  #         argonSidebarItem(
  #           tabName = "template",
  #           icon = argonIcon(name = "atom", color = "danger"),
  #           "Membangun PAM dari Data Template"
  #         )
  #       )
  #       )
  # )
  # )
)