# NOT RUN {
library(shiny)
ui <- function(){
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.")
})
}
if(interactive()) shinyApp(ui, server)
# }
Run the code above in your browser using DataLab