R/video.R

In rpkgs/curlR: What the Package Does (One Line, Title Case)

#' @export 
video_status <- function(video) {
  # focus_last_window()
  p <- get_browser()
  # cost about 0.05s
  info <- p$executeScript("
    var video = arguments[0];
    return {
      currentTime: video.currentTime,
      duration: video.duration
    }
  ", list(video))
  info$perc <- info %$% currentTime / duration * 100
  as.data.table(info)
}