Description Usage Arguments Examples
Shiny proxies.
1 2 3 4 5 6 7 | textillateStartProxy(proxy)
textillateStopProxy(proxy)
textillateInProxy(proxy)
textillateOutProxy(proxy)
|
proxy |
an object of class |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | if(interactive()){
library(shiny)
ui <- fluidPage(
actionButton(
"start",
"start"
),
actionButton(
"stop",
"stop"
),
actionButton(
"in",
"in"
),
actionButton(
"out",
"out"
),
textillateOutput('textillate')
)
server <- function(input, output){
output$textillate <- renderTextillate({
textillate("Click to start", auto.start = FALSE) %>%
textillateIn(effect = "fadeIn") %>%
textillateOut(effect = "bounce")
})
observeEvent(input$start, {
textillateProxy("textillate") %>%
textillateStartProxy()
})
observeEvent(input$start, {
textillateProxy("textillate") %>%
textillateStopProxy()
})
observeEvent(input$start, {
textillateProxy("textillate") %>%
textillateInProxy()
})
observeEvent(input$out, {
textillateProxy("textillate") %>%
textillateOutProxy()
})
}
shinyApp(ui, server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.