inst/shiny_theme_1/ui.R

In AlexisMayer/toolbox:

##################################################################
# UI #############################################################
##################################################################
ui <- dashboardPagePlus(
  title = "MyApp", # Name of html page 
  skin = "blue",
  
  # HEADER #######################################################
  dashboardHeaderPlus(
    title = "MyShinyApp" # Name of the app'
    ),
  
  # LEFT PANEL ###################################################
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      br(),
      menuItem(
        "First Tab",
        tabName = "tab1",
        icon = icon("map-signs")
      ),
      menuItem(
        "Tab 2",
        tabName = "tab2",
        icon = icon("map-signs")
      ),
      br(), br(), hr(), br()
    )
  ),
  
  # BODY PANEL #################################################################
  dashboardBody(
    # Introduce shinyJS
    useShinyjs(),
    
    # TABS ##############################################
    tabItems(
      
      # TAB 1 ##################################################################
      tabItem(
        tabName = "tab1",
        "FIRST TAB CONTENT"
      ),
      
      # TAB 2 ##################################################################
      tabItem(
        tabName = "tab2",
        "SECOND TAB CONTENT"
      )
    )
  )
)