if (interactive()) {
library(shiny)
ui <- fluidPage(
tile = "howler.js Player",
howler(elementId = "howler", "audio/sound.mp3"),
howlerPreviousButton("howler"),
howlerBackButton("howler"),
howlerPlayPauseButton("howler"),
howlerForwardButton("howler"),
howlerNextButton("howler"),
howlerVolumeDownButton("howler"),
howlerVolumeUpButton("howler")
)
server <- function(input, output) {
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab