Shiny の裏側で動く仕組みはリアクティビティです。このレッスンで学んだように、Shiny アプリには 3 種類のリアクティブ要素があります。

リアクティブソース: 典型的には、ブラウザのインターフェースから入ってくるユーザー入力。
リアクティブコンダクター: ソースとエンドポイントの間にあるリアクティブ要素で、時間のかかる計算をカプセル化するために使われることが多いです。
リアクティブエンドポイント: プロットや値の表のように、ユーザーのブラウザに表示されるもの。

ui <- fluidPage(
  titlePanel('BMI Calculator'),
  theme = shinythemes::shinytheme('cosmo'),
  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_range")
    )
  )
)

server <- function(input, output, session) {
  rval_bmi <- reactive({
    input$weight/(input$height^2)
  })
  output$bmi <- renderText({
    bmi <- rval_bmi()
    paste("Your BMI is", round(bmi, 1))
  })
  output$bmi_range <- renderText({
    bmi <- rval_bmi()
    health_status <- cut(bmi, 
      breaks = c(0, 18.5, 24.9, 29.9, 40),
      labels = c('underweight', 'healthy', 'overweight', 'obese')
    )
    paste("You are", health_status)
  })
}

shinyApp(ui, server)

この演習では、複数のリアクティブ要素が提示されます。各要素がリアクティブソース、コンダクター、エンドポイントのどれに当たるか分類してください。

アクショントリガーを制御する

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

実践的なインタラクティブ演習