2. R shinydashboard package - example app - demo sidebarMenu(), menuItem() - add menu items to shinydashboard sidebar

server.r

library(shiny)
library(shinydashboard)

shinyServer(function(input, output, session){
  
}
)

ui.r

## Intro shinydashboard package
## shinydashboard Basic Layout


library(shiny)
# install.packages("shinydashboard")
library(shinydashboard)
shinyUI(
  dashboardPage(
    dashboardHeader(title = "Demo shinydashboard package - an example", titleWidth = 600),


    dashboardSidebar(
      sidebarMenu(
        menuItem(text = "About", tabName = "about", icon=icon("clipboard")),
        menuItem("Data", tabName = "data", icon=icon("database")),
        menuItem("Download", icon = icon("download")),
        menuItem("Link to code files",  href = "https://www.google.com", icon=icon("code"))
     # https://fontawesome.com/icons?d=gallery
         )
    ),

    
    dashboardBody()
  )
)