出力を更新する（server）
もう少しで完成です！最後のステップは、ユーザーが入力した name に対して、prop と year の折れ線グラフを作成し、sex で色分けして表示するようにプロット出力を更新することです。次のプロットのテンプレートを参考に作成してください。
ggplot(subset(babynames, name == "David")) +
geom_line(aes(x = year, y = prop, color = sex))
server 内では、foo という名前のユーザー入力は input$foo のように参照できることを思い出してください。shiny と ggplot2 パッケージ、および babynames データセットはすでに読み込まれています。
この演習はコースの一部です
Rで作るShiny Webアプリケーション
演習の手順
renderPlot()の中にプロット用コードを追加してください。ハードコーディングされた名前（name == "David"）は、ユーザーが入力した名前に置き換えるようにしましょう。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
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)