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

▶

Aug 17, 2022 176 likes •472 views

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

SLIDE 1

Dashboard structure

verview

BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D

Lucy D'Agostino McGowan

Postdoctoral fellow in Biostatistics at Johns Hopkins University

SLIDE 2

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Dashboard Structure

Header Sidebar Body

SLIDE 3

BUILDING DASHBOARDS WITH SHINYDASHBOARD

SLIDE 4

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empty Dashboard

library("shinydashboard") header <- dashboardHeader()

SLIDE 5

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empty Dashboard

header <- dashboardHeader() sidebar <- dashboardSidebar() body <- dashboardBody()

SLIDE 6

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empty Dashboard

ui <- dashboardPage(header, sidebar, body)

SLIDE 7

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Empty Dashboard

server <- function(input, output) {} shiny::shinyApp(ui, server)

SLIDE 8

Let's practice!

BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D

SLIDE 9

Dashboard Header

verview

BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D

Lucy D'Agostino McGowan

Postdoctoral fellow in Biostatistics at Johns Hopkins University

SLIDE 10

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Shiny Dashboard Header

SLIDE 11

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Shiny Dashboard Header

SLIDE 12

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Dropdown Menus

Messages Notications Tasks

SLIDE 13

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Message menu

header <- dashboardHeader( dropdownMenu(type = "messages") )

SLIDE 14

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

SLIDE 15

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") )

SLIDE 16

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Notification Menu

header <- dashboardHeader( dropdownMenu( type = "notifications", notificationItem( text = "Check out datacamp!", href = "http://www.datacamp.com" ) ) )

SLIDE 17

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Tasks Menu

header <- dashboardHeader( dropdownMenu( type = "tasks", taskItem( text = "Look at your datacamp progress!", value = 15 ) ) )

SLIDE 18

Let's practice!

BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D

SLIDE 19

Dashboard Sidebar and Body overview

BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D

Lucy D'Agostino McGowan

Postdoctoral fellow in Biostatistics at Johns Hopkins University

SLIDE 20

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Sidebar

sidebar <- dashboardSidebar()

SLIDE 21

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

SLIDE 22

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

SLIDE 23

BUILDING DASHBOARDS WITH SHINYDASHBOARD

Body

body <- dashboardBody()

SLIDE 24

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

SLIDE 25

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

SLIDE 26

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

SLIDE 27

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") ) )

SLIDE 28

Your turn!

BU IL D IN G DASH BOAR D S W ITH SH IN YDASH BOAR D