is_travis <- function () identical(tolower(Sys.getenv("TRAVIS")), "true")
is_appveyor <- function () identical(tolower(Sys.getenv("APPVEYOR")), "true")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.