knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
The underlying JavaScript libraries are CountUp.js, and Odometer.
Install from Github with remotes
:
# install.packages("remotes") remotes::install_github("JohnCoene/countup")
Since version 0.1.1
the package also includes the odometer widget.
In the R console or R markdown.
library(countup) countup(25) opts = list( useEasing = TRUE, useGrouping = TRUE, separator = ',', decimal = '.', prefix = 'US$', suffix = ' bejillion' ) countup(count = 1729, start = 10, options = opts)
In Shiny (since version 0.1.0
), there are methods to programatically interact with the counter.
library(shiny) library(countup) ui <- fluidPage( h1(countupOutput("cnt")), actionButton("start", "start"), actionButton("pause", "pause / resume"), numericInput("value", "update to:", min = 1, max = 1000, value = 24) ) server <- function(input, output, session) { output$cnt <- renderCountup({ countup(1000, duration = 10, start = FALSE) }) observeEvent(input$start, { countupProxy("cnt") %>% countup_start() }) observeEvent(input$value, { countupProxy("cnt") %>% countup_update(input$value) }) observeEvent(input$pause, { countupProxy("cnt") %>% countup_pause_resume() }) } shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.