Actualizar salida (server)
¡Ya casi lo tienes! El paso final es actualizar la salida del gráfico para mostrar una gráfica de líneas de prop frente a year, coloreada por sex, para el name que introduzca el usuario. Puedes usar esta plantilla para crear tu gráfico:
ggplot(subset(babynames, name == "David")) +
geom_line(aes(x = year, y = prop, color = sex))
Recuerda que una entrada del usuario llamada foo se puede acceder como input$foo en el server. Ya hemos precargado los paquetes shiny y ggplot2, así como el conjunto de datos babynames.
Este ejercicio forma parte del curso
Creación de aplicaciones web con Shiny en R
Instrucciones del ejercicio
- Añade el código de visualización dentro de
renderPlot(). Asegúrate de reemplazar el nombre codificado (“name == "David"”) por el nombre que introduzca el usuario.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
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)