在观察R Shiny中的另一个事件时控制嵌入的YouTube视频

library(shiny)

ui <- fluidPage(
  tags$iframe(width = "560", height = "315", src = "https://www.youtube.com/embed/VIDEO_ID?autoplay=0", frameborder = "0", allowfullscreen = TRUE),
  actionButton("play", "播放"),
  actionButton("pause", "暂停"),
  actionButton("stop", "停止")
)

server <- function(input, output, session) {
  observeEvent(input$play, {
    session$sendCustomMessage(type = "playVideo", message = NULL)
  })
  
  observeEvent(input$pause, {
    session$sendCustomMessage(type = "pauseVideo", message = NULL)
  })
  
  observeEvent(input$stop, {
    session$sendCustomMessage(type = "stopVideo", message = NULL)
  })
  
  session$onSessionEnded(function() {
    session$sendCustomMessage(type = "stopVideo", message = NULL)
  })
}

shinyApp(ui, server)