Все, что я получаю, это solid белый фон, на котором должно воспроизводиться видео. Если вы щелкнете по ссылке загрузки в поле с блестящей видеоприложением, вы сможете скачать видео, которое воспроизводится в Quicktime, как и ожидалось.
Ссылка на источник видео здесь . Я поместил видео в www folder, где живет мой файл app.R. Я на Ма c с использованием Chrome и Safari.
library(shiny)
ui <- fluidPage(
# Application title
titlePanel("Video Compatibility"),
sidebarLayout(
sidebarPanel(
"side bar text"
),
mainPanel(
p("Video Below"),
tags$video(
src = "SampleVideo_640x360_1mb.mp4",
type = "video/mp4",
autoplay=TRUE,
muted=TRUE,
playsinline=TRUE,
loop=TRUE,
controls=TRUE),
p("Video above")
)
)
)
server <- function(input, output) {
}
# Run the application
shinyApp(ui = ui, server = server)