Nothing
The goal of {circletyper}
is to enable text curving in Shiny apps, by
adapting CircleType.js into R.
You can install the CRAN version of {circletyper}
with:
install.packages("circletyper")
or the development version with:
# install.packages("devtools")
devtools::install_github("etiennebacher/circletyper")
library(shiny)
library(magrittr)
library(circletyper)
ui <- fluidPage(
use_circletype(), # load dependencies
# Wrap the text element you want to curve into circletype()...
circletype(h2("this is a title", id = "testh2"), dir = -1, radius = 200),
# ... or use magrittr's pipe
strong("this is a bold text", id = "teststrong") %>% circletype(dir = 1),
br(),
actionButton("remove", "remove circletype effect")
)
server <- function(input, output, session) {
# You can also remove the circletype effect
observeEvent(input$remove, {
remove_circletype("teststrong")
})
}
shinyApp(ui, server)
| Initial | After clicking on the button | |----------------------|------------------------------| | | |
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.