检索嵌入在 R Shiny 应用程序中的视频的播放时间

Question

我正在尝试在 Shiny 应用程序中嵌入一个视频，并有一个操作按钮，按下该按钮时，它会记录视频的播放时间。出于这个问题的目的，我真的只想 paste/renderText 屏幕上的播放时间。我正在使用下面的代码来获取视频，我已经在 HTML 中看到了完全完成此操作的方法，但似乎无法让它在 Shiny 中工作。

library(shiny)
library(tidyverse)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(), 

  tags$video(src = "my_video.mp4", type = "viedo/mp4", width = "500px", height = "300px", controls = "controls"), 
  actionButton(inputId = "get_time", label = "Get Time"), 
  textOutput("currentTime")
)

server <- function(input, output, session) {

}

shinyApp(ui, server)

Answer 1

这是一个方法。

library(shiny)

js <- 
  "Shiny.setInputValue('time', document.getElementById('myVideo').currentTime);"

ui <- fluidPage(

  tags$video(id = "myVideo", src = "my_video.mp4", type = "video/mp4", 
             width = "500px", height = "300px", controls = "controls"), 
  actionButton(inputId = "get_time", label = "Get Time", onclick = js), 
  textOutput("currentTime")
)

server <- function(input, output, session) {

  output[["currentTime"]] <- renderText({
    input[["time"]]
  })

}

shinyApp(ui, server)

检索嵌入在 R Shiny 应用程序中的视频的播放时间

Retrieving a video's play-time that is embedded in an R Shiny app

html

r

shiny

shinyjs