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 = "Two howler.js Players Example",
h1("Two howler.js Players Example"),
fluidRow(
column(
width = 3L,
offset = 2L,
tags$section(
h2("Player 1"),
howler(audio_files[1L], elementId = "sound"),
howlerPlayPauseButton("sound"),
howlerStopButton("sound2")
)
),
column(
width = 3L,
offset = 2L,
tags$section(
h2("Player 2"),
howler(audio_files[2L], elementId = "sound2"),
howlerPlayPauseButton("sound2"),
howlerStopButton("sound2")
)
)
)
)
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.