Pour choisir une ou plusieurs valeurs parmi plusieurs valeurs prédéfinies, plusieurs widgets sont disponibles:

• radioButtons et selectInput permettent de choisir une valeur.
• checkboxGroupInput et et selectInput(…, multiple=TRUE) permettent de choisir plusieurs valeurs.

server

output$myplot=renderPlot({
  mydata=filter(catdata,
                haircolor==input$myRadioButtons)
  ggplot(mydata, aes(x=age, y=weight))+
    geom_point(color=input$myRadioButtons,
               size=2)
})

server

output$myplot2=renderPlot({
  mydata=filter(catdata,haircolor==input$mySelectInput)
  ggplot(mydata, aes(x=age, y=weight))+
    geom_point(color=input$mySelectInput,
               size=2)
})

server

output$myplot3=renderPlot({
  mydata=filter(catdata,haircolor %in% input$myCheckboxGroupInput)
  ggplot(mydata, aes(x=age, y=weight))+
    geom_point(aes(color=haircolor),
               size=2)
})

Attention, bien qu’ils soient construits pour entrer des valeurs numériques, ils fournissent une valeur de type chaîne de caractère au serveur (ie “33” et non 33).

server

output$myplot4=renderPlot({
mydata=filter(catdata,
              age<as.numeric(input$myNumericInput))
ggplot(mydata, aes(age,weight))+
  geom_point()
})

Remarquez l’utilisation de “as.numeric()”, la valeur de l’input étant (quelque peu paradoxalement) renvoyée comme une chaîne de caractère…

server

output$myplot5=renderPlot({
mydata=filter(catdata,
              age>as.numeric(input$mySliderInput[1]),
              age<as.numeric(input$mySliderInput[2]))
ggplot(mydata, aes(age,weight))+
    geom_point()
})

• textInput (pour un texte court) ou textAreaInput (pour un texte plus long, par exemple un paragraphe de commentaires)
• passwordInput pour un mot de passe (les caractères sont masqués)

server

output$myplot6=renderPlot({
    ggplot(catdata, aes(age,weight))+
      geom_point()+
    ggtitle(input$myTextInput)
})

Parmi les autres widgets les plus utiles, on trouve:

• fileInput qui permet de rechercher un fichier
• checkboxInput qui permet de spécifier si un paramètre a pour valeur TRUE ou FALSE
• dateInput et dateRangeInput qui permettent de spécifier des dates.

server

output$myplot7=renderPlot({
    p=ggplot(catdata, aes(age,weight))+
        geom_point(alpha=0.5, size=2)
    if(input$myCheckboxInput){
      p=p+geom_text(aes(label=name))
    }
    p
})

server

output$myOutput8=renderTable({
  data.frame(nom=input$myfileInput$name,
             taille=input$myfileInput$size)
})

server

output$myOutput9=renderText({
  str_c("Vous êtes donc âgé de ",
        as.duration(today()-ymd(input$myDateInput))
        )
})

Les triggers permettent à l’utilisateur de lancer certains processus. Ils sont particulièrement utiles pour lancer des processus un peu longs. J’y reviendrai un peu plus tard, quand j’aborderai le sujet de la réactivité

Dans les exemples précédents, on a vu différents exemples d’outputs possibles. Notamment, des outputs de type

• plot (renderPlot({}) + plotOutput())
• texte (renderText({}) + textOuptut())
• table (renderTable({}) + tableOutput())

Il est également possible de produire des outputs de type

• image (renderImage({}) + imageOutput()): à ne pas confondre avec plot, i.e. ce sont des images qui ne font pas l’objet d’un “affichage” par R mais sont enregistrées, comme .jpg ou .png par exemple.
• ui : (renderUi({}) + uiOutput()): cela correspond à la production d’un nouveau “morceau” d’interface utilisateur (du html, donc!).