또 다른 reactive expression 추가하기

reactive expression은 다른 reactive expression을 호출할 수 있어요. 이렇게 하면 계산을 모듈화하고, 동일한 계산이 반복해서 실행되지 않도록 할 수 있습니다. reactive expression을 잘 활용하는 것이 성능 좋은 Shiny 애플리케이션을 만드는 핵심이에요.

이 연습 문제에서는 BMI를 바탕으로 건강 상태를 계산하는 데 reactive expression을 사용해 볼 거예요.

이 연습은 강의의 일부입니다

R로 Shiny 웹 애플리케이션 만들기

강의 보기

연습 안내

BMI 상태를 계산하는 reactive expression rval_bmi_status를 추가하세요.
이 reactive expression을 사용해 출력에서 BMI 상태 계산을 대체하세요.

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

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)

코드 편집 및 실행