if (interactive()) {
library(shiny)
ui <- fluidPage(
title = "howler.js Player",
howler(elementId = "sound", "audio/sound.mp3"),
howlerCurrentTrack("sound"),
p(
howlerSeekTime("sound"),
"/",
howlerDurationTime("sound")
),
howlerPlayPauseButton("sound")
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab