停止 - 延迟 - 触发

使用 R 构建 Shiny Web 应用

Ramnath Vaidyanathan

VP of Product Research

隔离操作 (1/3)

一个应用：用户选择问候类型并输入姓名，得到个性化问候

使用 R 构建 Shiny Web 应用

隔离操作 (2/3)

一个应用：用户选择问候类型并输入姓名，得到个性化问候

使用 R 构建 Shiny Web 应用

隔离操作 (3/3)

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

      isolate(

        input$greeting_type

      )

      , input$name, sep = " ,")
  })
}
使用 R 构建 Shiny Web 应用

延迟操作 (1/3)

一个应用：用户输入姓名，得到个性化问候

使用 R 构建 Shiny Web 应用

一个应用：用户输入姓名，得到个性化问候

使用 R 构建 Shiny Web 应用

延迟操作 (3/3)

server <- function(input, output, session){
  rv_greeting <- eventReactive(input$show_greeting, {
    paste("Hello", input$name)
  })
  output$greeting <- renderText({
    rv_greeting()
  })
}
使用 R 构建 Shiny Web 应用

触发操作 (1/2)

一个应用：用户输入姓名并点击按钮，弹窗显示个性化问候语

使用 R 构建 Shiny Web 应用

触发操作 (2/2)

server <- function(input, output, session){
  observeEvent(input$show_greeting, {
    showModal(modalDialog(paste("Hello", input$name)))
  })
}
使用 R 构建 Shiny Web 应用

让我们练习！

使用 R 构建 Shiny Web 应用

Preparing Video For Download...