Title: | CSS Animations for 'shiny' Elements |
---|---|
Description: | A wrapper around a CSS library called 'vov.css', intended for use in 'shiny' applications. Simply wrap a UI element in one of the animation functions to see it move. |
Authors: | Tyler Littlefield [aut, cre] (Creator of Shiny Wrapper), Vaibhav Tandon [ctb, cph] (Author of included CSS code), Danube Huynhle [ctb] |
Maintainer: | Tyler Littlefield <[email protected]> |
License: | MIT + file LICENSE |
Version: | 0.1.2 |
Built: | 2024-11-23 03:32:23 UTC |
Source: | https://github.com/tylerlittlefield/vov |
Animation to blur in a UI element.
blur_in(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
blur_in(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), blur_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), blur_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to blur out (disappear) a UI element.
blur_out(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
blur_out(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), blur_out( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), blur_out( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element.
fade_in(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
fade_in(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element from the bottom left.
fade_in_bottom_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_in_bottom_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_bottom_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_bottom_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element from the bottom right.
fade_in_bottom_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_in_bottom_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_bottom_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_bottom_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element downward.
fade_in_down(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
fade_in_down(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element from the left.
fade_in_left(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
fade_in_left(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element from the right.
fade_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element from the top left.
fade_in_top_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_in_top_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_top_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_top_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element from the top right.
fade_in_top_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_in_top_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_top_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_top_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade in a UI element upward.
fade_in_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
fade_in_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element.
fade_out(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
fade_out(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element from the bottom left.
fade_out_bottom_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_out_bottom_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_bottom_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_bottom_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element from the bottom right
fade_out_bottom_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_out_bottom_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_bottom_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_bottom_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element downward.
fade_out_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_out_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element from the left.
fade_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element from the right.
fade_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element from the top left.
fade_out_top_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_out_top_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_top_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_top_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element from the top right.
fade_out_top_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
fade_out_top_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_top_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_top_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to fade out (disappear) a UI element upwards.
fade_out_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
fade_out_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_out_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to flash a UI element.
flash(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
flash(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), flash( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), flash( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to throb a UI element inward.
i_throb(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
i_throb(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), i_throb( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), i_throb( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to roll in a UI element from the left.
roll_in_left(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
roll_in_left(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to roll in a UI element from the right.
roll_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
roll_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to roll out (disappear) a UI element from the left.
roll_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
roll_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to roll out (disappear) a UI element from the right.
roll_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
roll_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), roll_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Run a demo version of the app to try out all the animations.
run_demo()
run_demo()
if (interactive()) { run_demo() }
if (interactive()) { run_demo() }
Animation to shake a UI element diagonally.
shake_diagonally( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
shake_diagonally( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_diagonally( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_diagonally( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to shake a UI element horizontally.
shake_horizontal( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
shake_horizontal( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_horizontal( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_horizontal( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to shake a UI element diagonally.
shake_i_diagonally( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
shake_i_diagonally( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_i_diagonally( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_i_diagonally( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to shake a UI element vertically.
shake_vertical( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
shake_vertical( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_vertical( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), shake_vertical( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide in a UI element downward.
slide_in_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
slide_in_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide in a UI element from the left.
slide_in_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
slide_in_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide in a UI element from the right.
slide_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
slide_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide in a UI element upward.
slide_in_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
slide_in_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_in_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide in a UI element downward.
slide_out_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
slide_out_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide out (disappear) a UI element from the left.
slide_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
slide_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide out (disappear) a UI element from the right.
slide_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
slide_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to slide out (disappear) a UI element upward.
slide_out_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
slide_out_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), slide_out_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to swivel a UI element horizontally.
swivel_horizontal( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
swivel_horizontal( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_horizontal( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_horizontal( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to swivel a UI element horizontally, twice.
swivel_horizontal_double( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
swivel_horizontal_double( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_horizontal_double( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_horizontal_double( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to swivel a UI element vertically.
swivel_vertical( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
swivel_vertical( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_vertical( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_vertical( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to swivel a UI element vertically, twice.
swivel_vertical_double( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
swivel_vertical_double( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_vertical_double( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), swivel_vertical_double( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to throb a UI element outward.
throb(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
throb(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), throb( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), throb( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Enables vov by including the CSS file necessary for the animations.
use_vov()
use_vov()
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), fade_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to wheel in a UI element from the left.
wheel_in_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
wheel_in_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to wheel in a UI element from the right.
wheel_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
wheel_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to wheel out (disappear) a UI element from the left.
wheel_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
wheel_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to wheel out (disappear) a UI element from the right.
wheel_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
wheel_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), wheel_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element.
zoom_in(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
zoom_in(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element down.
zoom_in_down(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
zoom_in_down(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element left.
zoom_in_left(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
zoom_in_left(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element right.
zoom_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
zoom_in_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element up.
zoom_in_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
zoom_in_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_in_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element.
zoom_out(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
zoom_out(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element down.
zoom_out_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
zoom_out_down( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_down( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element left.
zoom_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
zoom_out_left( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_left( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element right.
zoom_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
zoom_out_right( ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL )
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_right( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
Animation to zoom a UI element up.
zoom_out_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
zoom_out_up(ui, duration = NULL, delay = NULL, steps = NULL, iteration = NULL)
ui |
A UI element |
duration |
Duration of animation |
delay |
Delay in seconds before animation starts |
steps |
Animation steps |
iteration |
Iteration of animation |
Duration expects one of: "fast" = 800 milliseconds, "faster" = 500 milliseconds, "fastest" = 300 milliseconds, "slow" = 2 seconds, "slower" = 3 seconds, "slowest" = 4 seconds,
Delay expects one of: 0, 1, 2, 3, 4, 5, no delay if left NULL
Steps expects one of: 10, 20, 30, 40, 50, no steps if left NULL
Iteration expects one of: 1, 2, 3, 4, 5, infinite, no iteration if left NULL
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }
if (interactive()) { library(shiny) library(vov) ui <- fluidPage( use_vov(), zoom_out_up( h1("Hello world!") ) ) server <- function(input, output, session) {} shinyApp(ui, server) }