Çı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, kursun bir parçasıdır
R ile Shiny Kullanarak Web Uygulamaları Geliştirme
Egzersiz 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ı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
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)