https://github.com/swechhya/shinyanimate

Add animation to elements in Shiny.
https://github.com/swechhya/shinyanimate

hacktoberfest r shiny

Last synced: 3 months ago
JSON representation

Add animation to elements in Shiny.

• Host: GitHub
• URL: https://github.com/swechhya/shinyanimate
• Owner: Swechhya
• License: other
• Created: 2018-05-01T04:44:05.000Z (almost 7 years ago)
• Default Branch: master
• Last Pushed: 2024-02-12T17:57:24.000Z (about 1 year ago)
• Last Synced: 2024-10-13T13:13:16.737Z (4 months ago)
• Topics: hacktoberfest, r, shiny
• Language: R
• Homepage: https://swechhya.github.io/shinyanimate/
• Size: 4.75 MB
• Stars: 39
• Watchers: 3
• Forks: 4
• Open Issues: 4
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

        
# shinyanimate

[![version](http://www.r-pkg.org/badges/version/shinyanimate)](https://cran.r-project.org/package=shinyanimate)

[![cranlogs](http://cranlogs.r-pkg.org/badges/shinyanimate)](https://cran.r-project.org/package=shinyanimate)

shinyanimate package is an R wrapper for [animate.css](https://daneden.github.io/animate.css/). It allows user to easily add animations to any UI element in shiny app using the elements id.

## Installation

To install the stable CRAN version: 

```r

install.packages("shinyanimate")

```

To install the latest development version from GitHub:

```r

library(devtools)

install_github('Swechhya/shinyanimate')

```

## Example code

### Add animation after event is observed:

```r

library(shiny)

library(shinyanimate)

ui <- fluidPage(

  withAnim(),

  div( id = 'shinyLogo', tags$img(src= "http://hexb.in/hexagons/shiny.png", width = "100px", height = "100px")),

  actionButton(inputId = "button", label = "Animate")

)

server <- function(input, output, session) {

  observeEvent(input$button,{

    startAnim(session, 'shinyLogo', 'shakeX')

  })

}

shinyApp(ui, server)

```

![addAnim](inst/images/addAnim.gif)

### Add animation on mouse hover:

```r

library(shiny)

library(shinyanimate)

ui <- fluidPage(

  withAnim(),

  div( id = 'shinyLogo', tags$img(src= "http://hexb.in/hexagons/shiny.png", width = "100px", height = "100px"))

)

server <- function(input, output, session) {

  observe(addHoverAnim(session, 'shinyLogo', 'pulse'))

}

shinyApp(ui, server)

```

![hoverAnim](inst/images/hoverAnim.gif)

### Add animation when the element comes into view after scrolling:

```r

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(),

    div( id = 'shinyLogo', tags$img(src= "http://hexb.in/hexagons/shiny.png", width = "100px", height = "100px"))

)

server <- function(input, output, session) {

    observe(addScrollAnim(session, 'shinyLogo', 'bounceInRight'))

}

shinyApp(ui, server)

```

![scrollAnim](inst/images/scrollAnim.gif)