animals <- NULL # nocov start
.onLoad <- function(libname, pkgname) {
cow_paths <- list.files(system.file("cows", package = "cowsay"))
animals <<- gsub("\\.cow", "", cow_paths)
} # nocov end
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.