CommencezCommencez gratuitement

Listes déroulantes

Vous avez vu comment ajouter des listes déroulantes à une shinyApp. Cela permet à l'utilisatrice ou l'utilisateur de choisir une option parmi une liste, tout en occupant peu d'espace. C'est un bon choix de conception d'UI si l'application comporte déjà plusieurs éléments.

Dans cet exercice, les données ont été stockées dans sleep et un graphique nommé p a été enregistré. Les bibliothèques shiny et tidyverse ont aussi été chargées. Une fois le code complété, vous pouvez ouvrir la shinyApp dans un visionneur HTML pour une vue plus complète.

Cette activité fait partie du cours

Créer des tableaux de bord avec shinydashboard

Voir le cours

Instructions de l’exercice

  • Placez un selectInput() avec deux choix nommés "Plot" et "Table".
  • Placez un plotOutput() et un tableOutput() appelés "plot" et "table".
  • Ajoutez la sortie du graphique au serveur.
  • Ajoutez la sortie du tableau au serveur.

Exercice interactif pratique

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

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  # Place a selectInput with two choices, "Plot" and "Table"
  ___("choice", "Choose an output",
              choices = ___),
  # Place plot and table outputs called "plot" and "table"
  ___("plot"), ___)
server <- function(input, output) {
  # Add renderPlot
  output$plot <- ___({
    if(input$choice == "Plot") p
  })
  # Add renderTable
  output$___ <- ___({
    if(input$choice == "Table") sleep
  }) }
shinyApp(ui, server)
Modifier et exécuter le code