НачатьНачать бесплатно

Выпадающие меню

Вы уже познакомились с тем, как добавить выпадающее меню в shinyApp. Этот элемент позволяет пользователю выбрать один вариант из списка, при этом занимая минимум места на экране. Это удобное решение для UI, когда в приложении уже много других элементов.

В этом упражнении данные сохранены в переменной sleep, а график — в переменной p. Библиотеки shiny и tidyverse уже подключены. После того как код будет готов, вы сможете открыть shinyApp в HTML Viewer для более полного просмотра.

Это упражнение является частью курса

Создание дашбордов с помощью shinydashboard

Посмотреть курс

Инструкции к упражнению

  • Добавьте selectInput() с двумя вариантами выбора: "Plot" и "Table".
  • Добавьте plotOutput() и tableOutput() с именами "plot" и "table".
  • Подключите вывод графика к серверной части.
  • Подключите вывод таблицы к серверной части.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

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