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
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
dataper la word cloud, invece del libroartofwar(riga 20).
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il 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)