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

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

В останніх кількох вправах ви використовували 3 різні джерела для хмаринки слів: книжку Art of War, текстове поле та текстовий файл. Однак у будь-який момент працювало лише одне джерело. У цій вправі ви додасте можливість обрати, яке джерело даних використовувати для хмаринки слів.

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

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

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

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

Ваше завдання — додати в застосунок перемикачі, які дадуть змогу вибрати, чи має джерелом слів бути книжка Art of War, текстова область або завантажений файл. Зокрема:

  • Додайте елемент введення з перемикачами з міткою "Word source", який має три варіанти:
    • Значеннями варіантів мають бути "book", "own" і "file". Назви, що відображатимуться користувачеві, відповідно: "Art of War", "Use your own words" і "Upload a file".

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

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

ui <- fluidPage(
  h1("Word Cloud"),
  sidebarLayout(
    sidebarPanel(
      # Add radio buttons input
      ___(
        inputId = "source",
        label = ___,
        choices = c(
          # First choice is "book", with "Art of War" displaying
          "Art of War" = "book",
          # Second choice is "own", with "Use your own words" displaying
          ___ = "own",
          # Third choice is "file", with "Upload a file" displaying
          ___ = ___
        )
      ),
      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) {
  input_file <- reactive({
    if (is.null(input$file)) {
      return("")
    }
    readLines(input$file$datapath)
  })

  output$cloud <- renderWordcloud2({
    create_wordcloud(input_file(), num_words = input$num,
                     background = input$col)
  })
}

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