Description Usage Arguments Examples
Shiny proxies.
1 2 3 4 5 6 7 |
proxy |
A shiny proxy as returned by |
delay |
Delay in milliseconds before action is triggered. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | library(shiny)
ui <- fluidPage(
baffleOutput("baffle"),
br(),
actionButton("start", "baffle")
)
server <- function(input, output, session){
output$baffle <- renderBaffle({
b_affle("baffle")
})
observeEvent(input$start, {
baffle_proxy("baffle") %>%
b_start_p() %>%
b_reveal_p(3000)
})
}
if(interactive())
shinyApp(ui, server)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.