Package 'aniview'

Animate an element when it comes into view

Description

Programmatically animate Shiny and R Markdown content when it comes into view.

Usage

aniview(element, animation, ...)

Arguments

element	An shiny or rmarkdown element.
animation	An animation from animate.css
...	Additional class element

Examples

if (interactive()) {
 library(shiny)
  shinyApp(
   ui = fluidPage(
     use_aniview(), # add use_aniview() in the UI
     aniview(h1("Shiny with AniView"), animation = "fadeInUp"),
     aniview(textOutput("text"), animation = "zoomIn")
   ),
  server <- function(input, output, session){
    output$text <- renderText({ print("An animated text.") })
  }
 )
}

---

AniView dependencies

Description

Get aniview html dependencies.

Usage

html_dependencies_aniview(use_cdn = TRUE)

Arguments

use_cdn

boolean. TRUE to use a Content Delivery Network (CDN), true by default, or false to use locally stored files.

---

Use AniView

Description

Use AniView

Usage

use_aniview(animateThreshold = 0, scrollPollInterval = 20, use_cdn = TRUE)

Arguments

animateThreshold	integrer. +ve numbers delay the animation sequence until the specified number of pixels have come into view. -ve numbers will trigger the animation sequence prior to the element coming into view.
scrollPollInterval	integrer. frequency at which user scrolling is 'polled' i.e. tested. This is in milliseconds and is an extension to jQuery's in-built 'scroll' event/handler.
use_cdn	boolean. TRUE to use a Content Delivery Network (CDN), true by default, or false to use locally stored files.

Examples

if (interactive()) {
 library(shiny)
  shinyApp(
   ui = fluidPage(
     use_aniview(), # add use_aniview() in the UI
     aniview(h1("Shiny with AniView"), animation = "fadeInUp"),
     aniview(textOutput("text"), animation = "zoomIn")
   ),
  server <- function(input, output, session){
    output$text <- renderText({ print("An animated text.") })
  }
 )
}

---