CommencerCommencez gratuitement

Menus déroulants

Vous avez vu comment ajouter des menus déroulants à une shinyApp. Cela permet à l’utilisateur de l’application de choisir une option dans une liste, tout en occupant peu d’espace. C’est souvent un bon choix de conception d’UI lorsqu’il y a déjà de nombreuses autres fonctionnalités dans l’application.

Dans cet exercice, les données ont été enregistrées sous le nom sleep et un graphique appelé p a été stocké. Les bibliothèques shiny et tidyverse ont également été chargées. Une fois votre code terminé, vous pourrez ouvrir la shinyApp dans un visualiseur HTML pour une vue plus complète.

Cet exercice fait partie du cours

<cours>Créer des tableaux de bord avec shinydashboard</cours>
Voir le cours

Instructions de l’exercice

  • Placez un selectInput() avec deux choix appelés « Plot » et « Table ».
  • Placez un plotOutput() et un tableOutput() appelés « plot » et « table ».
  • Ajoutez la sortie du graphique dans le serveur.
  • Ajoutez la sortie du tableau dans le 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