停止・遅延・トリガー

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

Ramnath Vaidyanathan

VP of Product Research

アクションの分離 (1/3)

ユーザーが挨拶タイプを選び、名前を入力すると、パーソナライズされた挨拶が表示されるアプリ。

アクションの分離 (2/3)

ユーザーが挨拶タイプを選び、名前を入力すると、パーソナライズされた挨拶が表示されるアプリ。

アクションの分離 (3/3)

server <- function(input, output, session){
  output$greeting <- renderText({
    paste(

      isolate(

        input$greeting_type

      )

      , input$name, sep = " ,")
  })
}

アクションの遅延 (1/3)

ユーザーが名前を入力すると、パーソナライズされた挨拶が表示されるアプリ。

アクションの遅延 (3/3)

server <- function(input, output, session){
  rv_greeting <- eventReactive(input$show_greeting, {
    paste("Hello", input$name)
  })
  output$greeting <- renderText({
    rv_greeting()
  })
}

アクションのトリガー (1/2)

ユーザーが名前を入力してボタンをクリックすると、モーダルダイアログでパーソナライズされた挨拶が表示されるアプリ

アクションのトリガー (2/2)

server <- function(input, output, session){
  observeEvent(input$show_greeting, {
    showModal(modalDialog(paste("Hello", input$name)))
  })
}

練習してみましょう！

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