別のリアクティブ式を追加する

リアクティブ式は、ほかのリアクティブ式を呼び出すことができます。これにより、計算を部品化し、同じ処理が繰り返し実行されないようにできます。リアクティブ式を使いこなすことは、高速に動作する Shiny アプリケーションを作るための重要なポイントです。

この演習では、BMI に基づいて健康状態を計算するために、リアクティブ式を使います。

この演習はコースの一部です

Rで作るShiny Webアプリケーション

コースを見る

演習の手順

BMI ステータスを計算するリアクティブ式 rval_bmi_status を追加します。
このリアクティブ式を使って、出力内の 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)

コードを編集して実行