inst/examples/server/app.R

In video: 'Shiny' Extension of 'video.js'

library(shiny)
library(video)

ui <- fluidPage(
  h1("Video Player"),
  video(
    elementId = "video",
    files = c(
      "https://vjs.zencdn.net/v/oceans.mp4",
      "https://vjs.zencdn.net/v/oceans.webm",
      "https://vjs.zencdn.net/v/oceans.ogv"
    ),
    format = c(
      "video/mp4",
      "video/webm",
      "video/ogg"
    )
  ),
  br(),
  actionButton("play", "Play", icon("play")),
  actionButton("pause", "Pause", icon("pause")),
  actionButton("stop", "Stop", icon("stop")),
  actionButton("seek", "Go to 10 secs"),
  actionButton("change", "Change video")
)

server <- function(input, output, session) {
  observeEvent(input$play, playVideo("video"))
  observeEvent(input$pause, pauseVideo("video"))
  observeEvent(input$stop, stopVideo("video"))
  observeEvent(input$seek, seekVideo("video", 10))
  observeEvent(input$change, {
    changeVideo("video", "//d2zihajmogu5jn.cloudfront.net/elephantsdream/ed_hd.mp4")
    playVideo("video")
  })
}

shinyApp(ui, server)