Bygg ditt första dashboard

Data har lagrats som en dataram kallad soccer. Det finns 3 fördefinierade diagram:

goals_plot: Antal mål som varje lag har gjort
yellow_plot, red_plot: Antal gula/röda kort som varje lag har fått

Några egna hjälpfunktioner används här:

daytime_fn(): Hämtar dag och tid för en viss match
venue_fn(): Hämtar arenan för en viss match
grp_fn(): Hämtar gruppen för matchningen
team1_fn(), team2_fn(): Namnen på lag 1/2
score1_fn(), score2_fn(): Antal mål som lag 1/2 har gjort

Den här övningen är en del av kursen

Bygga dashboards med shinydashboard

Visa kurs

Övningsinstruktioner

Fyll i luckorna för utdata på rad ett till tre på den första fliken/sidan.
Fyll i luckorna för diagrammens utdata på den andra sidan, som kallades "goals", "yellow" och "red".
Sätt ihop UI och server för att rendera shinydashboard.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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
___

Redigera och kör kod