Convertir une taille de pouces en centimètres
Plus tôt dans le chapitre, nous avons appris à arrêter, retarder et déclencher des applications. C’est un schéma de programmation très courant dans Shiny qui permet d’optimiser vos apps en termes de vitesse (et de ne les relancer que lorsqu’une modification a eu lieu et que votre utilisateur souhaite relancer l’app).
Dans cet exercice, vous allez reprendre ces concepts pour bien les ancrer. Au lieu de calculer l’IMC, cette application convertit une taille en pouces vers des centimètres.
Cet exercice fait partie du cours
<cours>Créer des applications web avec Shiny en R</cours>Instructions de l’exercice
- Server : Retardez l’exécution du calcul de la taille en cm jusqu’à ce que l’utilisateur clique sur le bouton « Show height in cm ».
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
ui <- fluidPage(
titlePanel("Inches to Centimeters Conversion"),
sidebarLayout(
sidebarPanel(
numericInput("height", "Height (in)", 60),
actionButton("show_height_cm", "Show height in cm")
),
mainPanel(
textOutput("height_cm")
)
)
)
server <- function(input, output, session) {
# MODIFY CODE BELOW: Delay the height calculation until
# the show button is pressed
rval_height_cm <- reactive({
input$height * 2.54
})
output$height_cm <- renderText({
height_cm <- rval_height_cm()
paste("Your height in centimeters is", height_cm, "cm")
})
}
shinyApp(ui = ui, server = server)