Ajouter un résultat de type tableau

Pour ajouter un quelconque résultat dans une application Shiny, vous devez :

Créer le résultat (graphique, tableau, texte, etc.).
Rendre l’objet de résultat en utilisant la fonction render___ appropriée.
Affecter l’objet rendu à output$x.
Ajouter le résultat à l’UI avec la fonction ___Output appropriée.

Dans cet exercice, vous allez ajouter un résultat de type tableau à l’application d’exploration des prénoms de bébé que vous avez créée plus tôt. N’oubliez pas que le code à l’intérieur d’une fonction render___ doit être entouré d’accolades (par ex. renderPlot({...})).

Cet exercice fait partie du cours

<cours>Créer des applications web avec Shiny en R</cours>

Voir le cours

Instructions de l’exercice

Créez un résultat de type tableau nommé table_top_10_names, avec le top 10 des prénoms les plus populaires par sexe et par année. Vous pouvez utiliser la fonction top_10_names() pour générer un data frame à afficher.
Affichez le tableau dans l’UI.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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)

Modifier et exécuter le code