Inizia subitoInizia gratis

Usa le tue parole

textAreaInput() è utile quando vuoi permettere all'utente di inserire testo molto più lungo rispetto a quanto consente un tipico textInput(). Le aree di testo si estendono su più righe e hanno una barra di scorrimento verticale, oltre a un parametro rows che determina quante righe sono visibili.

A parte le dimensioni maggiori, le textarea si comportano in modo molto simile ai text input in tutti gli altri aspetti.

Questo esercizio fa parte del corso

Casi di studio: creare applicazioni web con Shiny in R

Visualizza corso

Istruzioni dell'esercizio

Il tuo compito è aggiungere un'area di testo per permettere all'utente di creare una word cloud usando le proprie parole. In particolare:

  • Aggiungi un'area di testo con 7 righe con inputId "text" e l'etichetta "Enter text".
  • Usa il valore dell'area di testo come sorgente data per la word cloud, invece del libro artofwar (riga 20).

esercizio interattivo pratico

Prova questo esercizio completando questo codice di esempio.

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)
Modifica ed esegui il codice