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

Используйте собственные слова

Функция textAreaInput() удобна, когда нужно позволить пользователю вводить значительно больше текста, чем позволяет стандартный textInput(). Текстовые области занимают несколько строк и имеют вертикальную полосу прокрутки, а также параметр rows, который определяет количество видимых строк.

За исключением большего размера, текстовые области ведут себя точно так же, как и обычные текстовые поля.

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

Примеры использования: создание веб-приложений с Shiny в R

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

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

Ваша задача — добавить текстовую область, чтобы пользователь мог создать облако слов из собственного текста. А именно:

  • Добавьте текстовую область на 7 строк с inputId равным "text" и подписью "Enter text".
  • Используйте значение текстовой области в качестве источника данных data для облака слов вместо книги artofwar (строка 20).

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

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

ui <- fluidPage(
  h1("Word Cloud"),
  sidebarLayout(
    sidebarPanel(
      # Add a textarea input
      ___,
      numericInput("num", "Maximum number of words",
                   value = 100, min = 5),
      colourInput("col", "Background color", value = "white")
    ),
    mainPanel(
      wordcloud2Output("cloud")
    )
  )
)

server <- function(input, output) {
  output$cloud <- renderWordcloud2({
    # Use the textarea's value as the word cloud data source
    create_wordcloud(data = ___, num_words = input$num,
                     background = input$col)
  })
}

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