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

Використайте власні слова

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

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

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

Case Studies: створення вебзастосунків із 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)
Редагувати та запускати код