Menús desplegables
Has visto cómo se pueden añadir menús desplegables a una shinyApp. Esto permite que la persona usuaria de la app elija una opción de una lista de opciones ocupando muy poco espacio. Puede ser una buena decisión de diseño de UI si la app ya tiene muchas otras funcionalidades.
En este ejercicio, los datos se han guardado como sleep y se ha guardado un gráfico llamado p. También se han cargado las librerías shiny y tidyverse. Cuando completes el código, puedes abrir la shinyApp en un visor HTML para verla con más detalle.
Este ejercicio forma parte del curso
Creación de paneles con shinydashboard
Instrucciones del ejercicio
- Coloca un
selectInput()con dos opciones llamadas "Plot" y "Table". - Coloca un
plotOutput()y untableOutput()llamados "plot" y "table". - Añade la salida del gráfico al server.
- Añade la salida de la tabla al server.
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
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)