admin.menu<-sidebarMenu(
  id="m",
  menuItem(
    "dashboard",
    tabName = "Dashboard",
    icon=icon("dashboard")
  ),
  menuItem(
    "input",
    tabName = "Input",
    icon=icon("dashboard")
  ),
  menuItem("Contact us", icon=icon("id-card"), href="https://lanubia.com/contact/")
)

survey.menu<-sidebarMenu(
  id="m",
  menuItem(
    "survey",
    tabName = "Survey",
    icon = icon("clipboard-list")
  ),
  menuItem(
    "personal",
    tabName = "Personal",
    icon = icon("user")
  ),
  menuItem("Contact us", icon=icon("id-card"), href="https://lanubia.com/contact/")
)