if (interactive()) {
ui <- fluidPage(
title = "howler.js Module",
howlerModuleUI("howl", c("audio/track1.mp3", "audio/track2.mp3"))
)
server <- function(input, output, session) {
moduleServer("howl", howlerModuleServer)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab