ПочатиПочніть безкоштовно

Випадні меню

Ви бачили, як додавати випадні меню до shinyApp. Це дає змогу користувачеві застосунку вибрати один варіант зі списку, займаючи мінімум місця. Такий підхід покращує дизайн інтерфейсу, особливо коли в застосунок уже додано багато інших елементів.

У цій вправі дані збережено в об'єкті sleep, а графік під назвою p вже підготовлено. Бібліотеки shiny і tidyverse також завантажені. Коли ви завершите код, зможете відкрити shinyApp у HTML Viewer, щоб побачити повний вигляд.

Ця вправа є частиною курсу

Створення панелей керування з shinydashboard

Переглянути курс

Інструкції до вправи

  • Розмістіть selectInput() із двома варіантами: "Plot" і "Table".
  • Розмістіть plotOutput() і tableOutput() з іменами "plot" і "table".
  • Додайте вивід графіка до server.
  • Додайте вивід таблиці до server.

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

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)
Редагувати та запускати код