if (interactive()) {
library(shiny)
tracks <- c("audio/track1.mp3", "audio/track2.mp3")
ui <- fluidPage(
title = "howler.js Player",
selectInput("track", "Select Track", basename(tracks)),
howler(elementId = "howler", tracks),
howlerPlayPauseButton("howler")
)
server <- function(input, output) {
observeEvent(input$track, changeHowlerTrack("howler", input$track))
}
runShiny(ui, server)
}
Run the code above in your browser using DataLab