CommencezCommencez gratuitement

Téléverser un fichier texte (ui)

Plutôt que de taper un long texte dans une zone de saisie, il peut être plus pratique de téléverser un fichier texte lorsque le contenu est très long.

Le téléversement de fichiers dans une application Shiny se fait avec fileInput().

Cette activité fait partie du cours

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

Voir le cours

Instructions de l’exercice

Ajoutez une entrée de type fichier à l'application Shiny avec un ID d'entrée "file" et une étiquette "Select a file".

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

ui <- fluidPage(
  h1("Word Cloud"),
  sidebarLayout(
    sidebarPanel(
      textAreaInput("text", "Enter text", rows = 7),
      # Add a file 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({
    create_wordcloud(input$text, num_words = input$num,
                     background = input$col)
  })
}

shinyApp(ui = ui, server = server)
Modifier et exécuter le code