Atualizar saída (server)
Você está quase lá! O passo final é atualizar a saída do gráfico para exibir um gráfico de linhas de prop vs. year, colorido por sex, para o name inserido pelo usuário. Você pode usar este modelo de gráfico para criar o seu:
ggplot(subset(babynames, name == "David")) +
geom_line(aes(x = year, y = prop, color = sex))
Lembre-se de que uma entrada do usuário chamada foo pode ser acessada como input$foo no server. Os pacotes shiny e ggplot2, assim como o conjunto de dados babynames, já estão pré-carregados.
Este exercício faz parte do curso
Construindo Aplicações Web com Shiny em R
Instruções do exercício
- Adicione o código de plotagem dentro de
renderPlot(). Lembre-se de substituir o nome fixo (name == "David") pelo nome inserido pelo usuário.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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)