Aan de slagBegin gratis

Gebruik je eigen woorden

De textAreaInput() is handig als je de gebruiker veel langere tekst wilt laten invoeren dan met een standaard textInput(). Tekstvakken beslaan meerdere rijen en hebben een verticale scrollbalk, plus een rows-parameter waarmee je bepaalt hoeveel rijen zichtbaar zijn.

Behalve dat ze groter zijn, gedragen tekstvakinputs zich verder hetzelfde als tekstinputs.

Deze oefening maakt deel uit van de cursus

Casestudies: webapplicaties bouwen met Shiny in R

Bekijk cursus

Oefeninstructies

Je taak is om een tekstvak toe te voegen zodat de gebruiker een wordcloud kan maken met eigen woorden. Specifiek:

  • Voeg een tekstvak toe met 7 rijen, een inputId "text" en het label "Enter text".
  • Gebruik de waarde van het tekstvak als data-bron voor de wordcloud, in plaats van het boek artofwar (regel 20).

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

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 bewerken en uitvoeren