Nothing
test_that("Sound can be play in shiny app", {
# Don't run these tests on the CRAN build servers
skip_on_cran()
skip_if(is.null(chromote::find_chrome()))
audio_file <- system.file("examples", "_audio", "80s_vibe.mp3", package = "howler")
ui <- fluidPage(
actionButton("play", "Play Sound")
)
server <- function(input, output, session) {
observeEvent(input$play, playSound(audio_file))
}
app <- shinytest2::AppDriver$new(shinyApp(ui, server), name = "howler_app")
on.exit(app$stop())
app$wait_for_idle()
expect_silent(app$click(input = "play", wait_ = FALSE))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.