Aggiungi un selettore di continenti: select input
Quando ci sono molte opzioni tra cui far scegliere l'utente, i pulsanti di scelta (radio buttons) possono occupare molto spazio e non essere ideali. Le select input—chiamate anche "liste a discesa"—possono essere usate per far scegliere all'utente un'opzione da un elenco, ma in modo più compatto. Con una select input, tutte le opzioni compaiono in un elenco scorrevole, quindi è utile anche quando hai molte scelte.
Come i radio button, anche le select input hanno i parametri choices e selected. Inoltre, le select input hanno l'argomento multiple che, se impostato a TRUE, permette all'utente di selezionare più di un valore.
Il codice della Shiny app dell'esercizio precedente è fornito con leggere modifiche.
Questo esercizio fa parte del corso
Casi di studio: creare applicazioni web con Shiny in R
Istruzioni dell'esercizio
- Aggiungi una
selectInput()alla UI con ID "continents" e un'etichetta "Continents", con il continente predefinito impostato su "Europe".- Le scelte nell'elenco devono essere tutti i diversi continenti presenti nel dataset gapminder.
- Permetti all'utente di selezionare più continenti contemporaneamente.
- Aggiungi il codice al server in modo che vengano mostrati solo i dati per i continenti selezionati, effettuando il subset del dataset gapminder (riga 23).
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
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)