将带有实时控制的视频嵌入交互式闪亮环境中

Question

我正在寻找一种方法，使用R Studio中的Shiny包来执行以下操作：

• 提示用户从主窗口内的计算机中选择视频文件
• 然后在主窗口中打开视频文件，其中包含控件（播放，暂停等）

我看过有关如何嵌入来自网站的视频的帖子，但我从未见过一篇文章讨论如何从您的计算机中选择视频文件，然后在主窗口中使用实时控件打开它们。

感谢您的帮助！

Answer 1

添加视频非常容易。为此，请构建您的应用程序：

<强> server.r

library(shiny)
shinyServer(function(input, output, session) {})

<强> ui.r

shinyUI(
  fluidPage(
    tags$video(id="video2", type = "video/mp4",src = "SampleVideo_1280x720_1mb.mp4", controls = "controls")
  )
)

www - 这就是您的视频所在，此处我有.mp4格式视频，已从http://www.sample-videos.com/下载