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

Додайте вибір континенту: select input

Коли є багато варіантів для вибору, перемикачі (radio buttons) можуть займати забагато місця й бути неідеальними. Елементи вибору — також відомі як «випадні списки» — дозволяють просити користувача обрати один варіант зі списку, але у більш компактному вигляді. У select input усі опції відображаються у прокручуваному списку, тож його зручно використовувати, навіть якщо виборів багато.

Подібно до перемикачів, select input також має параметри choices і selected. Додатково select input має аргумент multiple, який, якщо встановити TRUE, дозволяє користувачеві вибрати більше ніж одне значення.

Код Shiny‑застосунку з попередньої вправи надано з невеликими змінами.

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

Case Studies: створення вебзастосунків із Shiny в R

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

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

  • Додайте до UI selectInput() з ідентифікатором "continents" і міткою "Continents", встановивши континент за замовчуванням як "Europe".
    • Варіанти у списку мають охоплювати всі різні континенти, що є в наборі даних gapminder.
    • Дозвольте користувачеві обирати кілька континентів одночасно.
  • Додайте код у серверну частину так, щоб показувалися лише дані для вибраного континенту, підмноживши набір даних gapminder (рядок 23).

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

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

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("title", "Title", "GDP vs life exp"),
      numericInput("size", "Point size", 1, 1),
      checkboxInput("fit", "Add line of best fit", FALSE),
      radioButtons("color", "Point color",
                   choices = c("blue", "red", "green", "black")),
      # Add a continent dropdown selector
      ___(___, ___,
                  choices = levels(___),
                  multiple = ___,
                  selected = ___)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    # Subset the gapminder dataset by the chosen continents
    data <- subset(gapminder,
                   ___ %in% ___$continents)

    p <- ggplot(data, aes(gdpPercap, lifeExp)) +
      geom_point(size = input$size, col = input$color) +
      scale_x_log10() +
      ggtitle(input$title)
    
    if (input$fit) {
      p <- p + geom_smooth(method = "lm")
    }
    p
  })
}

shinyApp(ui = ui, server = server)
Редагувати та запускати код