circletyper

install.packages("circletyper")

# 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)