ComenzarEmpieza gratis

Usa tus propias palabras

La función textAreaInput() es útil cuando quieres permitir que el usuario introduzca un texto mucho más largo de lo que admite un textInput() típico. Las áreas de texto ocupan varias filas y tienen una barra de desplazamiento vertical, además de un parámetro rows que determina cuántas filas son visibles.

Salvo por su mayor tamaño, las entradas de tipo área de texto se comportan de forma muy similar a las entradas de texto en todos los demás aspectos.

Este ejercicio forma parte del curso

Casos prácticos: crea aplicaciones web con Shiny en R

Ver curso

Instrucciones del ejercicio

Tu tarea es añadir un área de texto para que el usuario cree una nube de palabras con sus propias palabras. En concreto:

  • Añade un área de texto con 7 filas, con inputId igual a "text" y la etiqueta "Enter text".
  • Usa el valor del área de texto como fuente data para la nube de palabras, en lugar del libro artofwar (línea 20).

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

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)
Editar y ejecutar código