applause::button()

Add an applause button to your blog posts, package documentation, slides and more!

🙏 Based entirely on the awesome applause-button library by Colin Eberhardt.

📓 The other goal of this project is to demonstrate how to use HTML dependencies with the htmltools package. For a walk-through of how this package was built, check out the Dev Log.

Installation

# install.packages("remotes")
remotes::install_github("gadenbuie/applause")

Usage

The package only has one function, so don’t bother attaching it with library(). Just call applause::button() wherever you need one.

R Markdown, blogdown, xaringan, etc.

```{r applause-button, echo=FALSE}
applause::button(
  color = "#0C4047",
  width = "100px"
)
```

Shiny

library(shiny)

ui <- fluidPage(
  h2("My Awesome Shiny App"),
  applause::button()
)

server <- function(input, output, session) {
  # ...
}

shinyApp(ui, server)

Options