Shiny

Feedback

Feedback

• Verifier les inputs
• Ajouter un pop-up
• Animation quand le server calcule

Feedback

• Verifier les inputs
• Ajouter un pop-up
• Animation quand le server calcule

Feedback

• Verifier les inputs
• Ajouter un pop-up
• Animation quand le server calcule

Feedback

Rendre l’App plus attrayante :

• shinyFeedback()
• shinyalert()
• withSpinner()

Validation des inputs

library(shinyFeedback)

ui <- fluidPage(
  useShinyFeedback(),
  numericInput("n", "n", value = 10),
  textOutput("half")
)

server <- function(input, output, session) {
  observeEvent(input$n,
    feedbackWarning(
      "n", 
      input$n %% 2 != 0,
      "Entrez un nombre pair"
    )  
  )
  output$half <- renderText(input$n / 2)
}

shinyApp(ui, server)

Problème

• Même si le nombre est n’est pas pair, le résultat s’affiche

Solution req()

• Exiger une condition
• req(input$n %% 2 == 0)

Reprise de l’exemple

ui <- fluidPage(
  useShinyFeedback(),
  numericInput("n", "n", value = 10),
  textOutput("half")
)

server <- function(input, output, session) {
  half <- reactive({
    even <- input$n %% 2 == 0
    feedbackWarning("n", !even, "Please select an even number")
    req(even)
    input$n / 2    
  })
  
  output$half <- renderText(half())
}

shinyApp(ui, server)

Résultat

Pop-Up

• Mettre en avant une erreur
• Mettre en avant un champs non completé
• Forcer l’utilisateur à lire un message

{shinyalert}

• install.packages("shinyalert")
• UI : useShinyalert()
• Server: shinyalert(title,text,type)

Exemple

library(shinyalert)

ui <- fluidPage(
  useShinyalert(), 
  numericInput("n", "n", value = 10),
  textOutput("half")
)

server <- function(input, output, session) {
  observeEvent(input$n,
               { if(input$n %% 2 != 0){
                 shinyalert("Oops!",
                            "Entrez un chiffre pair", 
                            type = "error")
               }
               }
  )
  output$half <- renderText(input$n / 2)
}

shinyApp(ui, server)

Loader

• Avoir une animation quand le server est occupé
• Plus esthétique

{shinycssloaders}

• install.packages("shinycssloaders")
• UI: withSpinner()

Exemple

library(shinycssloaders)

ui <- fluidPage(
  numericInput("n", "n", value = 10),
  actionButton("go", "Go"),
  br(),  br(),
  
  withSpinner(
    textOutput("half")
  )
)

server <- function(input, output, session) {
  
  half_val <- eventReactive(input$go,{
    input$n / 2
    })
  
  output$half <- renderText({
    Sys.sleep(1.5)
    half_val()
    })
}

shinyApp(ui, server)

Récapitulatif

Feedback

• shinyFeedback(): Vérifier que l’input est valide
• shinyalert(): Créer un Pop-Up
• withSpinner(): Ajouter un loader

Questions?