由BSU教授解决。冠军。在脚本的顶部,我们有一定的名义处理功能保持WAV名唯一的,那么得到相应的音频标签的功能:
get_audio_tag<-function(filename){tags$audio(src = filename,
type ="audio/wav", controls = NA)}
wave_name<-function(n,p1,f1,p2,f2,p3,f3,l){
paste0(paste("sound","num",n, "w1",p1,f1,"w2", p2,f2,"w3",p3,f3,"lev",
gsub("\\.","_",l), sep="_"), ".wav")
}
诀窍是,动态里面的一个变量wavname
更新输出功能,以便每次触摸无功输入时,wav文件都会更改名称。然后get_audio_tag
函数也在输出函数中运行,以便发生更新。该代码的输出函数看起来像:因为音频标签在HTML载入前活性元素送他们的第一输出
wname<-wave_name( input$radio,
input$frequency1,input$form1,
input$frequency2,input$form2,
input$frequency3,input$form3,
input$level)
output$audiotag<-renderUI(get_audio_tag("tempwav.wav")) #starting wave file
output$audiotag<-renderUI(get_audio_tag(wavname))
起始tempwav是必要的。
为什么把这搁置?刷新基于HTML的音频标签是一般的,但在R Shiny应用中生成代码非常具体,并且不会在其他地方发布或阐述。实际上,使用R闪光灯首先播放音频的内容很少。我没有一个正确的例子,因为这个问题非常具体。 – Zediiiii
你能告诉我你是如何设法将闪存服务器中的wav文件保存的?我试图做类似的事情,我使用了与[描述]中描述的相同的方法(http://stackoverflow.com/questions/33594007/writting-wav-file-in-shiny-app-with-seewave-and-调谐器)。但不知何故,这不运行。 – zielinskipp
@PiotrZielińskihttp://stackoverflow.com/questions/36205419/r-shiny-audio-playback不会让你在那里,然后PM我和我会给你我的一些代码。 – Zediiiii