r语言 - 如何显示通过 fileInput 上传的视频？

Question

所以我试图使用fileInput小部件在闪亮上传视频，然后有视频显示在主面板。我是R的新手，并且使用了一些例子来尝试找到一个解决方案，所以如果有任何代码错误，那么这就是原因。提前感谢任何帮助!

我的ui脚本:

library(shiny)
shinyUI(fluidPage(
headerPanel(title = 'Shiny Example'),
sidebarLayout(
sidebarPanel(
fileInput("file", "Choose Video File", accept = ".mp4"),
uiOutput("selectfile")
),
mainPanel(
uiOutput('video')
)

)
)
)

服务器脚本:

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

Answer 1

适用于Firefox:

library(shiny)
options(shiny.maxRequestSize = 30*1024^2)
ui <- fluidPage(
headerPanel(title = 'Shiny Example'),
sidebarLayout(
sidebarPanel(
fileInput("file", "Choose Video File", accept = ".mp4")
),
mainPanel(
uiOutput('video')
)
)
)
server <- function(input, output){
Video <- eventReactive(input[["file"]], {
input[["file"]][["datapath"]]
})
output[["video"]] <- renderUI({
req(Video())
file.rename(Video(), "www/myvideo.mp4")
tags$video(
width="320", height="240", controls="",
tags$source(src="myvideo.mp4", type="video/mp4")
)
})
}
shinyApp(ui, server)

必须有一个www子文件夹.