Tambahkan keluaran tabel

Untuk menambahkan keluaran apa pun ke aplikasi Shiny, Anda perlu:

Membuat keluarannya (plot, tabel, teks, dan sebagainya).
Merender objek keluaran menggunakan fungsi render___ yang sesuai.
Menetapkan objek yang sudah dirender ke output$x.
Menambahkan keluaran ke UI menggunakan fungsi ___Output yang sesuai.

Dalam latihan ini, Anda akan menambahkan keluaran tabel ke aplikasi penjelajah nama bayi yang telah Anda buat sebelumnya. Jangan lupa bahwa kode di dalam fungsi render___ harus dibungkus dengan kurung kurawal (misalnya renderPlot({...})).

Latihan ini adalah bagian dari kursus

Membangun Aplikasi Web dengan Shiny di R

Lihat Kursus

Petunjuk latihan

Buat keluaran tabel bernama table_top_10_names, dengan 10 nama terpopuler berdasarkan jenis kelamin dan tahun. Anda dapat menggunakan fungsi top_10_names() untuk menghasilkan data frame yang akan ditampilkan.
Tampilkan tabel tersebut di UI.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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)

Edit dan Jalankan Kode