R блестящий динамический рендеринг аудио [закрыть]

Question

Я работаю над проектом, пытаюсь визуализировать звук динамически.То есть я могу нажать кнопку и воспроизвести выбранный локальный звук.

Я прочитал этот пост и попробовал трюк Зедии.Проблема остается на месте.

Что ж, я создаю тестовое приложение, как показано ниже.

library(shiny)
# test set ----
ui <- fluidPage(
  textInput('my_music','path:',value="questionF"),
  actionButton("ok", "Okay"),
  uiOutput('my_audio')
  # tags$audio(src = "questionF.mp3", type = "audio/mp3")
)

get_audio_tag <- function(filename) {
  tags$audio(src = filename,
             type = "audio/mp3",
             controls = "controls")
}

server <- function(input, output, session){

  # Render the audio player
  observeEvent(input$ok, {

    wav_name = input$my_music
    # output$my_audio <-renderUI(get_audio_tag("questionF.mp3"))
    output$my_audio <-renderUI(get_audio_tag(wav_name))

  })

}

shinyApp(ui = ui, server = server)

Когда я нажимаю кнопку, первая песня получается нормально.Но следующие из них казались довольно сложными для загрузки, поскольку мой компьютер зависал с ростом памяти, используемой Rstudio.

Любые мысли будут оценены.

---

обновления:

Я пробовал в разных браузерах.Эти коды потерпели бы неудачу на Chrome, но отлично работают на краях MicrosoftПохоже, проблема с кешированием.Итак, теперь мой вопрос заключается в том, как я могу заставить коды работать на каждой платформе, используя глянцевый / R?

---

Мои коды работают в большинстве браузеров, кроме Chrome.Я думаю, что это больше похоже на проблему Chrome.