#' Get Claudio's GitHub username
#' @return Claudio's GitHub username
#' @examples
#' library(testthat)
#'
#' username <- get_claudios_github_username()
#' expect_equal("janclod", username)
#' @author Claudio Tiecher
#' @export
get_claudios_github_username <- function() {
"janclod"
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.