Zacznij terazZacznij za darmo

Własne słowa

Funkcja textAreaInput() przydaje się wtedy, gdy chcesz umożliwić użytkownikowi wprowadzenie znacznie dłuższego tekstu niż w przypadku zwykłego textInput(). Pola tekstowe zajmują wiele wierszy, mają pionowy pasek przewijania oraz parametr rows, który określa, ile wierszy jest widocznych.

Poza większymi rozmiarami, pola tekstowe działają bardzo podobnie do zwykłych pól tekstowych pod każdym innym względem.

To ćwiczenie jest częścią kursu

Studia przypadków: tworzenie aplikacji webowych w Shiny w R

Zobacz kurs

Instrukcje do ćwiczenia

Twoim zadaniem jest dodanie pola tekstowego, które pozwoli użytkownikowi tworzyć chmurę słów na podstawie własnego tekstu. Konkretnie:

  • Dodaj pole tekstowe zawierające 7 wierszy z inputId równym "text" i etykietą "Enter text".
  • Użyj wartości pola tekstowego jako źródła danych (data) dla chmury słów, zamiast książki artofwar (wiersz 20).

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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)
Edytuj i uruchom kod