Voeg een tabeloutput toe

Om een output toe te voegen aan een Shiny-app, moet je:

De output aanmaken (plot, tabel, tekst, enz.).
Het outputobject renderen met de juiste render___-functie.
Het gerenderde object toewijzen aan output$x.
De output toevoegen aan de UI met de juiste ___Output-functie.

In deze oefening voeg je een tabeloutput toe aan de earlier gemaakte babynamen-verkenner. Vergeet niet dat code binnen een render___-functie tussen accolades moet staan (bijv. renderPlot({...})).

Deze oefening maakt deel uit van de cursus

Webapplicaties bouwen met Shiny in R

Cursus bekijken

Oefeninstructies

Maak een tabeloutput genaamd table_top_10_names, met de top 10 meest populaire namen per geslacht en jaar. Je kunt de functie top_10_names() gebruiken om een data frame te genereren om weer te geven.
Toon de tabel in de UI.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

ui <- fluidPage(
  titlePanel("What's in a Name?"),
  # Add select input named "sex" to choose between "M" and "F"
  selectInput('sex', 'Select Sex', choices = c("F", "M")),
  # Add slider input named "year" to select year between 1900 and 2010
  sliderInput('year', 'Select Year', min = 1900, max = 2010, value = 1900)
  # CODE BELOW: Add table output named "table_top_10_names"
  
)

server <- function(input, output, session){
  # Function to create a data frame of top 10 names by sex and year 
  top_10_names <- function(){
    babynames %>% 
      filter(sex == input$sex) %>% 
      filter(year == input$year) %>% 
      slice_max(prop, n = 10)
  }
  # CODE BELOW: Render a table output named "table_top_10_names"
  
  
}

shinyApp(ui = ui, server = server)

Code bewerken en uitvoeren