CommencerCommencer gratuitement

Utilisez vos propres mots

La fonction textAreaInput() est utile lorsque vous souhaitez permettre à l’utilisateur de saisir un texte beaucoup plus long que ce qu’un textInput() classique autorise. Les zones de texte s’étendent sur plusieurs lignes, disposent d’une barre de défilement verticale et proposent un paramètre rows qui détermine le nombre de lignes visibles.

Hormis leur taille plus importante, les entrées de type textarea se comportent de la même manière que les champs texte dans tous les autres aspects.

Cet exercice fait partie du cours

Études de cas : créer des applications web avec Shiny en R

Afficher le cours

Instructions

Votre objectif est d’ajouter une zone de texte pour permettre à l’utilisateur de créer un nuage de mots avec ses propres mots. Plus précisément :

  • Ajoutez une zone de texte de 7 lignes avec un inputId "text" et un label "Enter text".
  • Utilisez la valeur de cette zone de texte comme source data pour le nuage de mots, plutôt que le livre artofwar (ligne 20).

Exercice interactif pratique

Essayez cet exercice en complétant cet exemple de code.

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)
Modifier et exécuter le code