Çıktıyı güncelle (server)
Neredeyse bitirdin! Son adım, kullanıcı tarafından girilen name için sex ile renklendirilmiş, prop ve year arasındaki ilişkiyi gösteren bir çizgi grafiğini çıktı olarak güncellemek. Grafiğini oluşturmak için bu şablonu kullanabilirsin:
ggplot(subset(babynames, name == "David")) +
geom_line(aes(x = year, y = prop, color = sex))
server içinde, foo adlı bir kullanıcı girdisine input$foo olarak erişilebileceğini unutma. shiny ve ggplot2 paketlerinin yanı sıra babynames veri kümesini önceden yükledik.
Bu egzersiz
R ile Shiny Kullanarak Web Uygulamaları Geliştirme
kursunun bir parçasıdırEgzersiz talimatları
- Çizim kodunu
renderPlot()içine ekle. Sabit yazılmış ismi (name == "David") kullanıcı tarafından girilen isimle değiştirdiğinden emin ol.
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
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)