Getting Started

anicon::faa("leaf")

Let's try bouncing

anicon::faa("leaf", animate="bounce")

Or embedding the icon inline

can be embedded by enclosing r anicon::faa("leaf", animate="burst") by back ticks.

Here's the list of all available animation

Here's a more colourful list of all available animation

Let's change the speed of the animation

anicon::faa("leaf", animate="bounce")

Go faster

anicon::faa("leaf", animate="bounce", speed="fast")

Go slower

anicon::faa("leaf", animate="bounce", speed="slow")

Let's grow it..

anicon::faa("leaf", size=2, bgcolour="MistyRose", colour="green")

    the container grows with it

anicon::faa("leaf", grow=20, bgcolour="MistyRose", colour="green")

      the container doesn't change

anicon::faa("leaf", grow=-2, bgcolour="MistyRose", colour="green")

      negative values will shrink it

Changing position of the icon

anicon::faa("magic", size=4, bgcolour="red", colour="pink", 
            position=c(3, 0, 3, 0))

anicon::faa("magic", size=4, bgcolour="red", colour="pink", 
            position=c(0, 3, 3, 0))

Position is given as vector of length 4 specifying up, down, left and right, respectively.

Hovering to trigger animation

Try hovering over the icon

anicon::faa("pagelines", size=3, colour="purple", 
            animate="wrench", anitype="hover", rtext="Hi there!")

Hi there!

Now try hovering over the text this time

anicon::faa("pagelines", size=3, colour="purple", 
            animate="wrench", anitype="parent-hover", 
            rtext="Hi there!")

Hi there!

You can embed these into Shiny

It works in shiny by using say tags$p(anicon::faa("child")).

Below is a working example,

ui <- fluidPage(
   titlePanel(tags$p(anicon::faa("child"), 
                     "Old Faithful Geyser Data")),
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins", "Number of bins:",
                     min = 1, max = 50,value = 30)
      ),
      mainPanel( plotOutput("distPlot"))
   )
)
server <- function(input, output) {
   output$distPlot <- renderPlot({
      ggplot(faithful, aes(waiting)) + 
       geom_histogram(bins=input$bins) + theme_bw()
   })
}

Other features

anicon::faa("magic", size=2, colour="blue", 
            rotate=45, rtext=" rotate")

rotate

anicon::faa("magic", size=2, colour="blue", 
            flip="vertical", rtext=" flip it vertically")

flip it vertically

anicon::faa("magic", size=2, colour="blue", 
            border=T, rtext=" put a border around it")

put a border around it

anicon also has animated text!

anicon::nia("Yes that's right!")

Yes that's right!

Animate your own images!

Behaves like faa!

anicon::cia("logo.png", rotate=90, size=3, border=T)

anicon::cia("logo.png", animate="wrench", ltext="Hello!",
            grow=20, flip="horizontal", border=T, bgcolor="#9BB1FF")

Hello!

anicon::cia("logo.png", animate="wrench", anitype="parent-hover", ltext="Hello!", size=3)

Hello!

Works with gif as well!

anicon::cia("party_parrot.gif", size=3, border=T)

You can disable animation in cia by animate=F

anicon::cia("party_parrot.gif", animate=F, rotate=90, size=3)

Find more fun gifs at slackmojis!