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

Виберіть джерело даних (server)

Під час роботи з радіокнопками інколи потрібно застосовувати умовну логіку (конструкції if-else) у серверній частині, коли звертаєтеся до значення радіокнопки. Це потрібно, якщо дії відрізняються залежно від конкретного вибору і перед тим, як рухатися далі, слід перевірити обране значення.

Наприклад, для радіокнопок, що вибирають джерело даних, код буде різним залежно від того, який варіант обрано.

Ваше наступне завдання — використати відповідне джерело даних у функції створення хмаринки слів згідно з тим, яку радіокнопку вибере користувач.

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

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

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

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

  • Визначте реактивну змінну з назвою data_source, щоб зберігати дані для хмаринки слів (рядок 28).
  • Якщо вибрано опцію "book" ("Art of War"), призначте книжку artofwar як джерело даних. Якщо вибрано опцію "own" ("Use your own words"), призначте значення з текстової області як джерело даних. Якщо вибрано опцію "file" ("Upload a file"), призначте текст із завантаженого користувачем файла як джерело даних (рядки з 33 по 36).
  • Використайте реактивну змінну data_source() як аргумент data для функції хмаринки слів (рядок 51).

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

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

ui <- fluidPage(
  h1("Word Cloud"),
  sidebarLayout(
    sidebarPanel(
      radioButtons(
        inputId = "source",
        label = "Word source",
        choices = c(
          "Art of War" = "book",
          "Use your own words" = "own",
          "Upload a file" = "file"
        )
      ),
      textAreaInput("text", "Enter text", rows = 7),
      fileInput("file", "Select a file"),
      numericInput("num", "Maximum number of words",
                   value = 100, min = 5),
      colourInput("col", "Background color", value = "white")
    ),
    mainPanel(
      wordcloud2Output("cloud")
    )
  )
)

server <- function(input, output) {
  # Create a "data_source" reactive variable
  data_source <- ___({
    # Return the appropriate data source depending on
    # the chosen radio button
    if (input$source == "book") {
      data <- artofwar
    } else if (input$source == ___) {
      data <- input$___
    } else if (___ == "file") {
      data <- input_file()
    }
    return(data)
  })

  input_file <- reactive({
    if (is.null(input$file)) {
      return("")
    }
    readLines(input$file$datapath)
  })

  output$cloud <- renderWordcloud2({
    # Use the data_source reactive variable as the data
    # in the word cloud function
    create_wordcloud(data = ___(), num_words = input$num,
                     background = input$col)
  })
}

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