LoslegenKostenlos loslegen

Verwende deine eigenen Wörter

textAreaInput() ist praktisch, wenn du den Nutzenden ermöglichen willst, deutlich längeren Text einzugeben als mit einem typischen textInput(). Textareas umfassen mehrere Zeilen und haben eine vertikale Bildlaufleiste sowie einen Parameter rows, mit dem du festlegen kannst, wie viele Zeilen sichtbar sind.

Abgesehen von der größeren Größe verhalten sich Textarea-Eingaben in jeder anderen Hinsicht sehr ähnlich wie Text-Eingaben.

Diese Übung ist Teil des Kurses

Fallstudien: Webanwendungen mit Shiny in R erstellen

Kurs anzeigen

Anleitung zur Übung

Deine Aufgabe ist es, ein Textarea-Eingabefeld hinzuzufügen, damit Nutzende mit eigenen Wörtern eine Wordcloud erstellen können. Konkret:

  • Füge ein Textarea-Eingabefeld mit 7 Zeilen, der inputId "text" und dem Label "Enter text" hinzu.
  • Verwende den Wert des Textfelds als data-Quelle für die Wordcloud, anstatt das Buch artofwar (Zeile 20).

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

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)
Code bearbeiten und ausführen