Nothing
library(shiny)
library(howler)
audio_files_dir <- system.file("examples", "_audio", package = "howler")
addResourcePath("sample_audio", audio_files_dir)
audio_files <- file.path("sample_audio", list.files(audio_files_dir, ".mp3$"))
ui <- fluidPage(
title = "howler Basic Example",
h1("howler Basic Example"),
howler(elementId = "sound", audio_files),
tags$p(
howlerPlayPauseButton("sound"),
"Play or pause the track"
),
tags$p(
howlerStopButton("sound"),
"Stop the track and return to the start"
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
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.