Ajouter un sélecteur de continent : liste déroulante
Quand il y a de nombreuses options à offrir à l'utilisateur, les boutons radio peuvent prendre beaucoup d'espace et ne sont pas toujours idéaux. Les entrées de sélection — aussi appelées « listes déroulantes » — permettent également d'inviter l'utilisateur à choisir une option parmi une liste de choix, mais de façon plus compacte. Avec une liste déroulante, toutes les options apparaissent dans une liste défilante, ce qui convient même lorsqu'il y a beaucoup de choix.
Comme pour les boutons radio, les listes déroulantes ont aussi des paramètres choices et selected. De plus, elles possèdent l'argument multiple qui, lorsqu'il est réglé à TRUE, permet à l'utilisateur de sélectionner plus d'une valeur.
Le code de l'application Shiny du dernier exercice est fourni avec de légères modifications.
Cette activité fait partie du cours
Études de cas : créer des applications Web avec Shiny en R
Instructions de l’exercice
- Ajoutez un
selectInput()à l'interface avec l'ID "continents" et l'étiquette « Continents », en définissant « Europe » comme continent par défaut.- Les choix de la liste doivent être tous les continents présents dans le jeu de données gapminder.
- Permettez à l'utilisateur de sélectionner plusieurs continents simultanément.
- Ajoutez du code au serveur pour que seules les données du ou des continents sélectionnés soient affichées, en extrayant un sous-ensemble du jeu de données gapminder (ligne 23).
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
textInput("title", "Title", "GDP vs life exp"),
numericInput("size", "Point size", 1, 1),
checkboxInput("fit", "Add line of best fit", FALSE),
radioButtons("color", "Point color",
choices = c("blue", "red", "green", "black")),
# Add a continent dropdown selector
___(___, ___,
choices = levels(___),
multiple = ___,
selected = ___)
),
mainPanel(
plotOutput("plot")
)
)
)
# Define the server logic
server <- function(input, output) {
output$plot <- renderPlot({
# Subset the gapminder dataset by the chosen continents
data <- subset(gapminder,
___ %in% ___$continents)
p <- ggplot(data, aes(gdpPercap, lifeExp)) +
geom_point(size = input$size, col = input$color) +
scale_x_log10() +
ggtitle(input$title)
if (input$fit) {
p <- p + geom_smooth(method = "lm")
}
p
})
}
shinyApp(ui = ui, server = server)