Hello,
Since the scope of my web-app is to analyze a set of entry files, some of the calculus take a long time to execute. For this reason, beside a visual acknowledge, I prefer to implement a "sound when complete" mechanism.
In stand-alone mode is easy: I simply used play(x = ding) in the server.R and the library(audio).
But on the shinyapps.io server I though the right way was to use the
tags$audio(src = "wavs/ding.wav", type = "audio/wav", autoplay = NA) inside the ui.R, just like suggested in https://stackoverflow.com/questions/36205419/r-shiny-audio-playback. Since it runs on another host, like mentioned in shinyapps.io and sound, I should listen nothing. But instead it plays, but in strange way: I put the tags$audio along each tabPanel when needed, inside the conditionalPanel(...) statements, in order to play my three sounds when a certain action comes to an end.
Unexpectedly all the three sounds I implemented, play at the very beginning just when the app is loading and then stop: they never play when needed. Probably it is my fault, but the in the shiny documentation, it seems the tags$audio should work like any other tags
You're more likely to get help if you create a reprex. You can learn more about that https://mastering-shiny.org/action-workflow.html#getting-help
Hello Hadley,
thank U for getting back 2 me.
I managed to extract a tiny part of my web-app and put it all together in a app.R file (big work!) to get a reprex as requested. You can find this in https://rpubs.com/abbati/621334
My concern is in the following UI tag:
tags$audio(src = "shipsbell.wav", type = "audio/wav", autoplay = NA)
which, as explained in the original case, on the shinyapps.io it plays the sound initially (when it loads the app) and then never plays as expected. In this case , it should play after the setting of the condition
condition = ("output.load_panelStatus"),
Here's my solution, credit to a Dean Atalli forum post where he provided the beep example.
library(shiny)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
extendShinyjs(text = 'shinyjs.beep = function() {
var snd = new Audio("data:audio/wav;base64,//uQRAAAAWMSLwUIYAAsYkXgoQwAEaYLWfkWgAI0wWs/ItAAAGDgYtAgAyN+QWaAAihwMWm4G8QQRDiMcCBcH3Cc+CDv/7xA4Tvh9Rz/y8QADBwMWgQAZG/ILNAARQ4GLTcDeIIIhxGOBAuD7hOfBB3/94gcJ3w+o5/5eIAIAAAVwWgQAVQ2ORaIQwEMAJiDg95G4nQL7mQVWI6GwRcfsZAcsKkJvxgxEjzFUgfHoSQ9Qq7KNwqHwuB13MA4a1q/DmBrHgPcmjiGoh//EwC5nGPEmS4RcfkVKOhJf+WOgoxJclFz3kgn//dBA+ya1GhurNn8zb//9NNutNuhz31f////9vt///z+IdAEAAAK4LQIAKobHItEIYCGAExBwe8jcToF9zIKrEdDYIuP2MgOWFSE34wYiR5iqQPj0JIeoVdlG4VD4XA67mAcNa1fhzA1jwHuTRxDUQ//iYBczjHiTJcIuPyKlHQkv/LHQUYkuSi57yQT//uggfZNajQ3Vmz+Zt//+mm3Wm3Q576v////+32///5/EOgAAADVghQAAAAA//uQZAUAB1WI0PZugAAAAAoQwAAAEk3nRd2qAAAAACiDgAAAAAAABCqEEQRLCgwpBGMlJkIz8jKhGvj4k6jzRnqasNKIeoh5gI7BJaC1A1AoNBjJgbyApVS4IDlZgDU5WUAxEKDNmmALHzZp0Fkz1FMTmGFl1FMEyodIavcCAUHDWrKAIA4aa2oCgILEBupZgHvAhEBcZ6joQBxS76AgccrFlczBvKLC0QI2cBoCFvfTDAo7eoOQInqDPBtvrDEZBNYN5xwNwxQRfw8ZQ5wQVLvO8OYU+mHvFLlDh05Mdg7BT6YrRPpCBznMB2r//xKJjyyOh+cImr2/4doscwD6neZjuZR4AgAABYAAAABy1xcdQtxYBYYZdifkUDgzzXaXn98Z0oi9ILU5mBjFANmRwlVJ3/6jYDAmxaiDG3/6xjQQCCKkRb/6kg/wW+kSJ5//rLobkLSiKmqP/0ikJuDaSaSf/6JiLYLEYnW/+kXg1WRVJL/9EmQ1YZIsv/6Qzwy5qk7/+tEU0nkls3/zIUMPKNX/6yZLf+kFgAfgGyLFAUwY//uQZAUABcd5UiNPVXAAAApAAAAAE0VZQKw9ISAAACgAAAAAVQIygIElVrFkBS+Jhi+EAuu+lKAkYUEIsmEAEoMeDmCETMvfSHTGkF5RWH7kz/ESHWPAq/kcCRhqBtMdokPdM7vil7RG98A2sc7zO6ZvTdM7pmOUAZTnJW+NXxqmd41dqJ6mLTXxrPpnV8avaIf5SvL7pndPvPpndJR9Kuu8fePvuiuhorgWjp7Mf/PRjxcFCPDkW31srioCExivv9lcwKEaHsf/7ow2Fl1T/9RkXgEhYElAoCLFtMArxwivDJJ+bR1HTKJdlEoTELCIqgEwVGSQ+hIm0NbK8WXcTEI0UPoa2NbG4y2K00JEWbZavJXkYaqo9CRHS55FcZTjKEk3NKoCYUnSQ0rWxrZbFKbKIhOKPZe1cJKzZSaQrIyULHDZmV5K4xySsDRKWOruanGtjLJXFEmwaIbDLX0hIPBUQPVFVkQkDoUNfSoDgQGKPekoxeGzA4DUvnn4bxzcZrtJyipKfPNy5w+9lnXwgqsiyHNeSVpemw4bWb9psYeq//uQZBoABQt4yMVxYAIAAAkQoAAAHvYpL5m6AAgAACXDAAAAD59jblTirQe9upFsmZbpMudy7Lz1X1DYsxOOSWpfPqNX2WqktK0DMvuGwlbNj44TleLPQ+Gsfb+GOWOKJoIrWb3cIMeeON6lz2umTqMXV8Mj30yWPpjoSa9ujK8SyeJP5y5mOW1D6hvLepeveEAEDo0mgCRClOEgANv3B9a6fikgUSu/DmAMATrGx7nng5p5iimPNZsfQLYB2sDLIkzRKZOHGAaUyDcpFBSLG9MCQALgAIgQs2YunOszLSAyQYPVC2YdGGeHD2dTdJk1pAHGAWDjnkcLKFymS3RQZTInzySoBwMG0QueC3gMsCEYxUqlrcxK6k1LQQcsmyYeQPdC2YfuGPASCBkcVMQQqpVJshui1tkXQJQV0OXGAZMXSOEEBRirXbVRQW7ugq7IM7rPWSZyDlM3IuNEkxzCOJ0ny2ThNkyRai1b6ev//3dzNGzNb//4uAvHT5sURcZCFcuKLhOFs8mLAAEAt4UWAAIABAAAAAB4qbHo0tIjVkUU//uQZAwABfSFz3ZqQAAAAAngwAAAE1HjMp2qAAAAACZDgAAAD5UkTE1UgZEUExqYynN1qZvqIOREEFmBcJQkwdxiFtw0qEOkGYfRDifBui9MQg4QAHAqWtAWHoCxu1Yf4VfWLPIM2mHDFsbQEVGwyqQoQcwnfHeIkNt9YnkiaS1oizycqJrx4KOQjahZxWbcZgztj2c49nKmkId44S71j0c8eV9yDK6uPRzx5X18eDvjvQ6yKo9ZSS6l//8elePK/Lf//IInrOF/FvDoADYAGBMGb7FtErm5MXMlmPAJQVgWta7Zx2go+8xJ0UiCb8LHHdftWyLJE0QIAIsI+UbXu67dZMjmgDGCGl1H+vpF4NSDckSIkk7Vd+sxEhBQMRU8j/12UIRhzSaUdQ+rQU5kGeFxm+hb1oh6pWWmv3uvmReDl0UnvtapVaIzo1jZbf/pD6ElLqSX+rUmOQNpJFa/r+sa4e/pBlAABoAAAAA3CUgShLdGIxsY7AUABPRrgCABdDuQ5GC7DqPQCgbbJUAoRSUj+NIEig0YfyWUho1VBBBA//uQZB4ABZx5zfMakeAAAAmwAAAAF5F3P0w9GtAAACfAAAAAwLhMDmAYWMgVEG1U0FIGCBgXBXAtfMH10000EEEEEECUBYln03TTTdNBDZopopYvrTTdNa325mImNg3TTPV9q3pmY0xoO6bv3r00y+IDGid/9aaaZTGMuj9mpu9Mpio1dXrr5HERTZSmqU36A3CumzN/9Robv/Xx4v9ijkSRSNLQhAWumap82WRSBUqXStV/YcS+XVLnSS+WLDroqArFkMEsAS+eWmrUzrO0oEmE40RlMZ5+ODIkAyKAGUwZ3mVKmcamcJnMW26MRPgUw6j+LkhyHGVGYjSUUKNpuJUQoOIAyDvEyG8S5yfK6dhZc0Tx1KI/gviKL6qvvFs1+bWtaz58uUNnryq6kt5RzOCkPWlVqVX2a/EEBUdU1KrXLf40GoiiFXK///qpoiDXrOgqDR38JB0bw7SoL+ZB9o1RCkQjQ2CBYZKd/+VJxZRRZlqSkKiws0WFxUyCwsKiMy7hUVFhIaCrNQsKkTIsLivwKKigsj8XYlwt/WKi2N4d//uQRCSAAjURNIHpMZBGYiaQPSYyAAABLAAAAAAAACWAAAAApUF/Mg+0aohSIRobBAsMlO//Kk4soosy1JSFRYWaLC4qZBYWFRGZdwqKiwkNBVmoWFSJkWFxX4FFRQWR+LsS4W/rFRb/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////VEFHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU291bmRib3kuZGUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMjAwNGh0dHA6Ly93d3cuc291bmRib3kuZGUAAAAAAAAAACU=");
snd.play();
}'),
extendShinyjs(text = 'shinyjs.neigh = function() {
var snd = new Audio("https://www.w3schools.com/tags/horse.ogg");
snd.play();
}'),
actionButton("beep", "Beep"),
actionButton("neigh", "neigh"),
verbatimTextOutput("textout"),
actionButton("startlongproc_beep", "Press to Start Long with Beep"),
actionButton("startlongproc_neigh", "Press to Start Long with Neigh")
)
server <- function(input, output, session) {
observeEvent(input$beep, {
js$beep()
})
observeEvent(input$neigh, {
js$neigh()
})
observeEvent(input$startlongproc_beep, {
output$textout <- renderText({
for (i in 1:5) {
cat(i, "\n")
Sys.sleep(i / 10)
}
js$beep()
print("beep")
})
})
observeEvent(input$startlongproc_neigh, {
output$textout <- renderText({
for (i in 1:5) {
cat(i, "\n")
Sys.sleep(i / 10)
}
js$beep()
print("neigh")
})
})
}
shinyApp(ui, server)Thank you Nir,
I will try 2 implement as u suggest, but questions remain:
What those tags$audio are used for? On the local implementation they do not work, but you can use the play function from the audio library, which is not possible to implement on a remote server. But the tags seem not working on a server neither... what do they are used for?
I tried the "Attali" solution but it does not work either.
I deployed in shinyapps.io also added the library(V8) as suggested by the server after a first deployment.
No way. The server does not play any sound.
Here we are an extract of my implementation:
On ui.R
library(shinyjs)
useShinyjs(),
extendShinyjs(text = 'shinyjs.ding = function() {var snd = new Audio("./www/ding.ogg"); snd.play(); }'),
on server.R
if (Sys.info()["sysname"] == "Windows") {play(x = bell)} else {js$ding()}}
Nothing
cheers
I would guess that the javascript running in browser is lacking context for where ./www/ding.ogg is ?
I try to avoid using javascript as much as possible, but perhaps someone else can help.
HEllo,
of course I put the related sound file in the ./www folder and I deployed it into the server
cheers
I made a test and it worked for me. I placed my ogg in the www subdirectory, but then referred to the path assuming that the javascript environment was in the www subdirectory. i.e.
{var snd = new Audio("./ding.ogg"); snd.play(); }
this worked for me.