在Shiny R中，有没有一种方法可以在没有延迟的observeEvent之后（带有renderUI的问题）立即运行observeEvent？

Question

好吧，我的标题有些混乱，但让我解释一下。

我正在使用renderUI来获取音频标签，但是，我想以较低的音量启动音频，因为它太响了。

下面的代码工作正常，除了我添加了延迟之外，它从较高的音量开始并迅速转到较低的音量，但仍然非常引人注意。尝试减少延迟不会有帮助。如果消除延迟，则两个watchEvents将同时运行，并且不会更改音量。如果我将js $ runs标记（降低了音量）移动到第一个watchEvent内，则也将无效。我认为这是因为renderUI直到watchEvent完全完成才真正渲染。另外，我认为我无法删除renderUI，因为在我的完整应用中，我需要用户输入来播放音频。

是否有一种方法可以以较低的音量初始启动音频标签？还是有一种方法可以立即运行renderUI以便没有延迟？

感谢所有帮助，谢谢。

library(shiny)
library(shinyjs)


jsCode <- 'shinyjs.runs = function setHalfVolume() {document.getElementById("myaudio").volume = 0.2;}'

get_audio <- function(){
    tags$audio(id = "myaudio", controls = NA, autoplay = NA, tags$source(src="aud.mpeg"))
}


ui <- fluidPage(
    useShinyjs(),
    extendShinyjs(text = jsCode),

    uiOutput("my_audio"),

    actionButton("guessbutton", "Submit")
)

server <- function(input, output) {
    observeEvent(input$guessbutton, {
        output$my_audio <- renderUI(get_audio())
        #js$runs()
    })

    observeEvent(input$guessbutton, {
        delay(100, js$runs())
    })
}

shinyApp(ui = ui, server = server)

Answer 1

据我所知，您需要删除renderUI才能使其正常工作。否则，当您尝试立即减小音量时，音频标签的id将不存在。

我建议您只生成一次音频标签，并在应用程序或会话启动时减小音量，同时动态更改音频标签的src参数。

请参阅以下内容：

library(shiny)
library(shinyjs)

if(!dir.exists("www")){
    dir.create("www")
}

if(!file.exists("./www/Flamenco.ogg")){
    # for license see: https://commons.wikimedia.org/wiki/File:JCZA_-_JCzarnecki-Flamenco.ogg
    download.file("https://upload.wikimedia.org/wikipedia/commons/7/76/JCZA_-_JCzarnecki-Flamenco.ogg", destfile = "./www/Flamenco.ogg", mode = "wb") 
}

ui <- fluidPage(
    useShinyjs(),
    tags$audio(id = "myaudio", controls = NA, autoplay = NA, src = ""),
    p(),
    actionButton("guessbutton", "Submit")
)

server <- function(input, output) {
    runjs("document.getElementById('myaudio').volume = 0.2;") # initially reduce volume
    observeEvent(input$guessbutton, {
        runjs(sprintf("document.getElementById('myaudio').src = '%s';", "Flamenco.ogg")) # dynamically change src, replace "Flamenco.ogg" with your user input
    })
}

shinyApp(ui = ui, server = server)