Question

即使是闪亮中的音频和视频标签的基本设置，我也遇到了一些困难。看起来文件位于正确的位置，但是没有输出任何输出，并且忽略了许多其他输入（例如显示控件）。

这是一个简单的可重复的例子。在存储此源文件的工作目录中，我还有一个www/clip.mp3文件（任何文件都可以复制此问题）。

library(shiny)

app <- list(ui = shinyUI(fluidPage(
    textOutput('text'),
    tags$audio(src = "clip.mp3", type = "audio/mp3", 
               autoplay = TRUE, controls = TRUE)
)
), 
    server = shinyServer(function(input, output) {
        output$text <- renderText({
            c(getwd(), file.exists(paste0(getwd(), '/www/clip.mp3')))
            })
    })
)
runApp(app)

对我来说，输出显示working/dir/path TRUE，但没有别的。根据文档（http://shiny.rstudio.com/articles/tag-glossary.html）看起来一切都在正确的位置，但是没有为音频标签（甚至是请求的控件）呈现任何内容。

Answer 1

你的程序一切都很好。我发现的唯一问题是使用RStudio查看器运行它，但在使用Chrome在新窗口上启动它之后一切正常。另外，作为建议，您可以使用addResourcePath函数来使用不同的目录而不是/ www。请参阅下面的示例。

addResourcePath("audio", "c:/temp") 

library(shiny)

runApp(list(
  ui = shinyUI(fluidPage(
    tags$audio(src = "audio/clip.mp3", type = "audio/mp3", 
               autoplay = TRUE, controls = TRUE)
  )), 
  server = shinyServer(function(input, output) {
  })
))

简单闪亮的音频文件示例不呈现

1 个答案: