Dashboard str u ct u re o v er v ie w BU IL D IN G DASH BOAR D S W - PowerPoint PPT Presentation

Dashboard str u ct u re o v er v ie w BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D L u c y D ' Agostino McGo w an Postdoctoral fello w in Biostatistics at Johns Hopkins Uni v ersit y

Dashboard Str u ct u re Header Sidebar Bod y BUILDING DASHBOARDS WITH SHINYDASHBOARD

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empt y Dashboard library("shinydashboard") header <- dashboardHeader() BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empt y Dashboard header <- dashboardHeader() sidebar <- dashboardSidebar() body <- dashboardBody() BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empt y Dashboard ui <- dashboardPage(header, sidebar, body) BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empt y Dashboard server <- function(input, output) {} shiny::shinyApp(ui, server) BUILDING DASHBOARDS WITH SHINYDASHBOARD

Let ' s practice ! BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D

Dashboard Header o v er v ie w BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D L u c y D ' Agostino McGo w an Postdoctoral fello w in Biostatistics at Johns Hopkins Uni v ersit y

Shin y Dashboard Header BUILDING DASHBOARDS WITH SHINYDASHBOARD

Shin y Dashboard Header BUILDING DASHBOARDS WITH SHINYDASHBOARD

Dropdo w n Men u s Messages Noti � cations Tasks BUILDING DASHBOARDS WITH SHINYDASHBOARD

Message men u header <- dashboardHeader( dropdownMenu(type = "messages") ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

header <- dashboardHeader( dropdownMenu( type = "messages", messageItem( from = "Lucy", message = "Check out datacamp!", href = "http://www.datacamp.com" ) ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

dropdownMenu( type = "messages", messageItem( from = "Lucy", message = "Check out datacamp!", href = "http://www.datacamp.com"), messageItem( from = "Lucy", message = "Check out datacamp, again!", href = "http://www.datacamp.com") ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

Notification Men u header <- dashboardHeader( dropdownMenu( type = "notifications", notificationItem( text = "Check out datacamp!", href = "http://www.datacamp.com" ) ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

Tasks Men u header <- dashboardHeader( dropdownMenu( type = "tasks", taskItem( text = "Look at your datacamp progress!", value = 15 ) ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

Let ' s practice ! BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D

Dashboard Sidebar and Bod y o v er v ie w BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D L u c y D ' Agostino McGo w an Postdoctoral fello w in Biostatistics at Johns Hopkins Uni v ersit y

Sidebar sidebar <- dashboardSidebar() BUILDING DASHBOARDS WITH SHINYDASHBOARD

sidebar <- dashboardSidebar( sidebarMenu( menuItem("Data", tabName = "data") ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

sidebar <- dashboardSidebar( sidebarMenu( menuItem("Data", tabName = "data" ), menuItem("Dashboard", tabName = "dashboard") ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

Bod y body <- dashboardBody() BUILDING DASHBOARDS WITH SHINYDASHBOARD

body <- dashboardBody( tabItems( tabItem(tabName = "data"), tabItem(tabName = "dashboard") ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

body <- dashboardBody( tabItems( tabItem(tabName = "data", "Input data here"), tabItem(tabName = "dashboard", "Look at my cool dashboard") ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

body <- dashboardBody( tabItems( tabItem(tabName = "data", "Input data here"), tabItem(tabName = "dashboard", "Look at my cool dashboard") ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

body <- dashboardBody( tabBox( title = "My first box", tabPanel("Tab1", "Content for the first tab"), tabPanel("Tab2", "Content for the second tab") ) ) BUILDING DASHBOARDS WITH SHINYDASHBOARD

Yo u r t u rn ! BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D