Alienwaarnemingen: outputs toevoegen

Nu het dashboard inputs heeft, moet je je outputs bouwen om daadwerkelijk informatie te zien over de gemelde UFO-waarnemingen.

Er zijn er twee: een plot en een tabel. De plot moet voor de geselecteerde staat en periode het aantal waarnemingen per vorm laten zien. De tabel moet, voor de geselecteerde staat en periode, het aantal waarnemingen tonen, plus de gemiddelde, mediaan-, minimum- en maximumduur (duration_sec) van de waarnemingen. Hiervoor moet je dplyr, of een andere methode naar keuze, gebruiken om de usa_ufo_sightings-gegevens te bewerken.

Deze oefening maakt deel uit van de cursus

Webapplicaties bouwen met Shiny in R

Cursus bekijken

Oefeninstructies

Voeg een staafdiagram-output toe met de naam 'shapes', die het aantal UFO-waarnemingen per vorm laat zien voor de geselecteerde staat en periode.

Zorg ervoor dat je de output in de server maakt en deze ook in de UI toont.
Voeg een tabeloutput toe met de naam 'duration_table' die per vorm het aantal UFO-waarnemingen toont, plus de gemiddelde, mediaan-, minimum- en maximumduur van de waarnemingen. Let op: de tabel mag alleen data tonen voor de geselecteerde staat en periode.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

ui <- fluidPage(
  titlePanel("UFO Sightings"),
  sidebarLayout(
    sidebarPanel(
      selectInput("state", "Choose a U.S. state:", choices = unique(usa_ufo_sightings$state)),
      dateRangeInput("dates", "Choose a date range:",
                     start = "1920-01-01",
                     end = "1950-01-01")
    ),
    mainPanel(
      # Add plot output named 'shapes'

      # Add table output named 'duration_table'

    )
  )
)

server <- function(input, output) {
  # CODE BELOW: Create a plot output of sightings by shape,
  # For the selected inputs

  
  
  
  
  # CODE BELOW: Create a table output named 'duration_table', by shape,
  # of # sighted, plus mean, median, max, and min duration of sightings
  # for the selected inputs

  
  
}

shinyApp(ui, server)

Code bewerken en uitvoeren