Retarder les réactions avec eventReactive()
Le cadre de programmation réactive de Shiny est conçu pour que toute modification des entrées mette automatiquement à jour les sorties qui en dépendent. Dans certaines situations, nous pouvons vouloir contrôler explicitement le déclencheur qui provoque la mise à jour.
La fonction eventReactive() permet de calculer une valeur réactive qui ne se met à jour qu’en réponse à un événement spécifique.
rval_x <- eventReactive(input$event, {
# calculs
})
Cet exercice fait partie du cours
<cours>Créer des applications web avec Shiny en R</cours>Instructions de l’exercice
- Utilisez
eventReactive()pour retarder le calcul de l’IMC jusqu’à ce que l’utilisateur clique sur le bouton.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
ui <- fluidPage(
titlePanel('BMI Calculator'),
sidebarLayout(
sidebarPanel(
textInput('name', 'Enter your name'),
numericInput('height', 'Enter height (in m)', 1.5, 1, 2, step = 0.1),
numericInput('weight', 'Enter weight (in Kg)', 60, 45, 120),
actionButton("show_bmi", "Show BMI")
),
mainPanel(
textOutput("bmi")
)
)
)
server <- function(input, output, session) {
# MODIFY CODE BELOW: Use eventReactive to delay the execution of the
# calculation until the user clicks on the show_bmi button (Show BMI)
rval_bmi <- reactive({
input$weight/(input$height^2)
})
output$bmi <- renderText({
bmi <- rval_bmi()
paste("Hi", input$name, ". Your BMI is", round(bmi, 1))
})
}
shinyApp(ui = ui, server = server)