if (FALSE) { # interactive()
library(shiny)
library(shinyLottie)
ui <- fluidPage(
include_lottie(),
lottie_animation(
path = "shinyLottie/example.json",
name = "my_animation"
),
actionButton("play", "Play"),
actionButton("loopOn", "Loop On"),
actionButton("loopOff", "Loop Off")
)
server <- function(input, output, session) {
observeEvent(input$play, {
# Non-looped animations can not be resumed without first being stopped
lottie_stop(name = "my_animation")
lottie_play(name = "my_animation")
})
observeEvent(input$loopOn, {
lottie_setLoop(flag = TRUE, name = "my_animation")
})
observeEvent(input$loopOff, {
lottie_setLoop(flag = FALSE, name = "my_animation")
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab