Building your first dashboard
The data has been stored as a data frame called soccer
. There are 3 predefined plots:
goals_plot
: The number of goals scored by each teamyellow_plot
,red_plot
: The number of yellow/red cards given to each team
Some custom helper functions are used here:
daytime_fn()
: Gets the day & time for a particular matchvenue_fn()
: Gets the venue for a particular matchgrp_fn()
: Gets the group of the matchupteam1_fn()
,team2_fn()
: The names of team 1/2score1_fn()
,score2_fn()
: The number of goals scored by team 1/2
This exercise is part of the course
Building Dashboards with shinydashboard
Exercise instructions
- Fill in the blanks for the outputs in the first to third rows of the first tab/page.
- Fill in the blanks for the plot outputs in the second page, which were called "goals", "yellow" and "red".
- Place the UI and server together to render the shinydashboard.
Hands-on interactive exercise
Have a go at this exercise by completing this sample code.
body <- dashboardBody(tabItems(
tabItem(tabName = "matchtab",
fluidRow(selectInput("match", "Match number", choices = 1:nrow(soccer)),
infoBoxOutput("daytime"), infoBoxOutput("venue"), infoBoxOutput("grp")),
fluidRow(valueBoxOutput("team1", width = 3), valueBoxOutput("score1", width = 3),
valueBoxOutput("team2", width = 3), valueBoxOutput("score2", width = 3)),
fluidRow(plotOutput("histogram"))),
tabItem(tabName = "statstab",
tabBox(tabPanel("Goals", plotOutput("goals", height = "700px")),
tabPanel("Yellow cards", plotOutput("yellow", height = "700px")),
tabPanel("Red cards", plotOutput("red"))))
))
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output) {
# Fill in outputs in first to third rows of the first page
output$daytime <- renderInfoBox(infoBox("Day and time",
daytime_fn(input$match),
icon = icon("calendar"),
color = "green"))
output$venue <- ___(infoBox("Venue",
venue_fn(input$match),
icon = icon("map"),
color = "green"))
output$___ <- ___(___("Group",
grp_fn(input$match),
color = "green"))
output$team1 <- ___(valueBox("Team 1", team1_fn(input$match), color = "blue"))
output$score1 <- ___(___("# of goals", score1_fn(input$match), color = "blue"))
output$___ <- ___(valueBox("Team 2", team2_fn(input$match), color = "red"))
___ <- ___(valueBox("# of goals", score2_fn(input$match), color = "red"))
output$histogram <- renderPlot(plot_histogram(input$match))
# Fill in outputs in the second page
output$goals <- ___(goals_plot)
output$___ <- ___(yellow_plot)
___ <- ___(red_plot)
}
# Put the UI and server together
___