Ajouter une autre expression réactive

Une expression réactive peut en appeler d'autres. Cela vous permet de modulariser les calculs et de vous assurer qu'ils NE sont pas exécutés à répétition. Maîtriser l’usage des expressions réactives est essentiel pour créer des applications Shiny performantes.

Dans cet exercice, vous allez utiliser une expression réactive pour calculer l’état de santé à partir de l’IMC.

Cet exercice fait partie du cours

<cours>Créer des applications web avec Shiny en R</cours>

Voir le cours

Instructions de l’exercice

Ajoutez une expression réactive rval_bmi_status pour calculer le statut d’IMC.
Utilisez cette expression réactive pour remplacer les calculs du statut d’IMC dans la sortie.

Exercice interactif pratique

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

ui <- fluidPage(
  titlePanel('BMI Calculator'),
  sidebarLayout(
    sidebarPanel(
      numericInput('height', 'Enter your height in meters', 1.5, 1, 2),
      numericInput('weight', 'Enter your weight in Kilograms', 60, 45, 120)
    ),
    mainPanel(
      textOutput("bmi"),
      textOutput("bmi_status")
    )
  )
)

server <- function(input, output, session) {
  rval_bmi <- reactive({
    input$weight/(input$height^2)
  })
  # CODE BELOW: Add a reactive expression rval_bmi_status to 
  # return health status as underweight etc. based on inputs
  
  
  
  
  output$bmi <- renderText({
    bmi <- rval_bmi()
    paste("Your BMI is", round(bmi, 1))
  })
  output$bmi_status <- renderText({
    # MODIFY CODE BELOW: Replace right-hand-side with 
    # reactive expression rval_bmi_status
    bmi_status <- cut(rval_bmi(), 
      breaks = c(0, 18.5, 24.9, 29.9, 40),
      labels = c('underweight', 'healthy', 'overweight', 'obese')
    )
    paste("You are", bmi_status)
  })
}

shinyApp(ui = ui, server = server)

Modifier et exécuter le code