Mettre à jour le résultat (server)

Vous y êtes presque ! La dernière étape consiste à mettre à jour le résultat du graphique pour afficher une courbe de prop en fonction de year, colorée par sex, pour le name saisi par l’utilisateur. Vous pouvez utiliser ce modèle pour créer votre graphique :

ggplot(subset(babynames, name == "David")) +
  geom_line(aes(x = year, y = prop, color = sex))

Rappelez-vous qu’une entrée utilisateur nommée foo est accessible sous la forme input$foo dans le server. Nous avons déjà préchargé les packages shiny et ggplot2, ainsi que le jeu de données babynames.

Cet exercice fait partie du cours

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

Voir le cours

Instructions de l’exercice

Ajoutez le code de tracé dans renderPlot(). Veillez à remplacer le nom en dur (name == "David") par le nom saisi par l’utilisateur.

Exercice interactif pratique

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

ui <- fluidPage(
  titlePanel("Baby Name Explorer"),
  sidebarLayout(
    sidebarPanel(textInput('name', 'Enter Name', 'David')),
    mainPanel(plotOutput('trend'))
  )
)

server <- function(input, output, session) {
  output$trend <- renderPlot({
    # CODE BELOW: Update to display a line plot of the input name
    ggplot()
    
  })
}

shinyApp(ui = ui, server = server)

Modifier et exécuter le code