Bir tablo çıktısı ekle
Herhangi bir çıktıyı bir Shiny uygulamasına eklemek için şunları yapman gerekir:
- Çıktıyı oluştur (grafik, tablo, metin vb.).
- Uygun
render___fonksiyonunu kullanarak çıktı nesnesini oluştur (render et). - Render edilen nesneyi
output$xatamasına bağla. - Uygun
___Outputfonksiyonunu kullanarak çıktıyı arayüze (UI) ekle.
Bu egzersizde, daha önce oluşturduğun bebek isimleri keşif uygulamasına bir tablo çıktısı ekleyeceksin. render___ fonksiyonu içindeki kodun süslü parantezlerle sarılması gerektiğini unutma (ör. renderPlot({...})).
Bu egzersiz
R ile Shiny Kullanarak Web Uygulamaları Geliştirme
kursunun bir parçasıdırEgzersiz talimatları
- Cinsiyet ve yıla göre en popüler ilk 10 ismi içeren,
table_top_10_namesadlı bir tablo çıktısı oluştur. Görüntülenecek veri çerçevesini üretmek içintop_10_names()fonksiyonunu kullanabilirsin. - Tabloyu arayüzde (UI) göster.
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
ui <- fluidPage(
titlePanel("What's in a Name?"),
# Add select input named "sex" to choose between "M" and "F"
selectInput('sex', 'Select Sex', choices = c("F", "M")),
# Add slider input named "year" to select year between 1900 and 2010
sliderInput('year', 'Select Year', min = 1900, max = 2010, value = 1900)
# CODE BELOW: Add table output named "table_top_10_names"
)
server <- function(input, output, session){
# Function to create a data frame of top 10 names by sex and year
top_10_names <- function(){
babynames %>%
filter(sex == input$sex) %>%
filter(year == input$year) %>%
slice_max(prop, n = 10)
}
# CODE BELOW: Render a table output named "table_top_10_names"
}
shinyApp(ui = ui, server = server)