View source: R/remove_circletype.R
| remove_circletype | R Documentation |
Remove circletype effect
remove_circletype(id, session = NULL)
id |
Id of the text element that has a circletype effect. |
session |
Session of the Shiny app |
Removes circletype effect
if (interactive()) {
library(shiny)
library(circletyper)
ui <- fluidPage(
use_circletype(), # load dependencies
circletype(strong("this is a bold text", id = "teststrong")),
br(),
# You can also remove the circletype effect
actionButton("remove", "remove circletype effect for bold text")
)
server <- function(input, output, session) {
observeEvent(input$remove, {
remove_circletype("teststrong", session = session)
})
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.