Menu a tendina
Hai visto come aggiungere menu a tendina a una shinyApp. Questo permette all'utente di scegliere un'opzione da un elenco, occupando poco spazio. È una buona scelta di UI se nell'app sono già presenti molte altre funzionalità.
In questo esercizio, i dati sono stati salvati come sleep e un grafico chiamato p è stato salvato. Le librerie shiny e tidyverse sono già state caricate. Quando avrai completato il codice, potrai aprire la shinyApp in un Visualizzatore HTML per una visione più completa.
Questo esercizio fa parte del corso
Creare dashboard con shinydashboard
Istruzioni dell'esercizio
- Inserisci un
selectInput()con due scelte chiamate "Plot" e "Table". - Inserisci un
plotOutput()e untableOutput()chiamati "plot" e "table". - Aggiungi l'output del grafico al server.
- Aggiungi l'output della tabella al server.
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
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)