Html 检索视频'；s嵌入在R闪亮应用程序中的播放时间

我正试图在一个闪亮的应用程序中嵌入一个视频，并有一个动作按钮，当按下时，会记录视频的播放时间。为了回答这些问题，我只想在屏幕上粘贴/渲染播放时间。我正在使用下面的代码来获取视频，我已经看到了完全用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)

库（闪亮）
图书馆（tidyverse）
图书馆（shinyjs）
ui这里有一个方法

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)

库（闪亮）
js