Mulai sekarangMulai gratis

Menu dropdown

Anda telah melihat bagaimana menu dropdown dapat ditambahkan ke shinyApp. Ini memungkinkan pengguna aplikasi memilih satu opsi dari daftar opsi, sekaligus hanya menggunakan sedikit ruang. Hal ini dapat menghasilkan desain UI yang baik jika sudah banyak fitur lain yang ditambahkan ke aplikasi.

Dalam latihan ini, data telah disimpan sebagai sleep dan sebuah plot bernama p telah disimpan. Pustaka shiny dan tidyverse juga sudah dimuat. Setelah Anda melengkapi kodenya, Anda dapat membuka shinyApp di HTML Viewer untuk tampilan yang lebih lengkap.

Latihan ini merupakan bagian dari kursus

Membangun Dashboard dengan shinydashboard

Lihat Kursus

Instruksi latihan

  • Letakkan selectInput() dengan dua pilihan bernama "Plot" dan "Table".
  • Letakkan plotOutput() dan tableOutput() dengan nama "plot" dan "table".
  • Tambahkan output plot ke server.
  • Tambahkan output tabel ke server.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  # Place a selectInput with two choices, "Plot" and "Table"
  ___("choice", "Choose an output",
              choices = ___),
  # Place plot and table outputs called "plot" and "table"
  ___("plot"), ___)
server <- function(input, output) {
  # Add renderPlot
  output$plot <- ___({
    if(input$choice == "Plot") p
  })
  # Add renderTable
  output$___ <- ___({
    if(input$choice == "Table") sleep
  }) }
shinyApp(ui, server)
Edit dan Jalankan Kode