简单闪亮的音频文件示例不会渲染

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) { 
    }) 
))