if(interactive()){
library(shiny)
library(shinyanimate)
ui <- fluidPage(
withAnim(),
tags$h1('Scroll below to see an animation'),
br(), br(), br(), br(), br(), br(), br(),
br(), br(), br(), br(), br(), br(), br(),
br(), br(), br(), br(), br(), br(), br(),
br(), br(), br(), br(), br(), br(), br(),
br(), br(), br(), br(), br(), br(), br(),
br(), br(), br(), br(), br(), br(), br(),
tags$div(id = 'title', h1('I ANIMATE ON SCROLL'))
)
server <- function(input, output, session){
observe(addScrollAnim(session, 'title', 'bounce'))
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab