#' Run examples from flydoc function
#'
#' Run the examples from the Examples section of the flydoc
#' documentation.
#'
#' @param fun The function that has flydoc documentation
#' @export
flyexample <- function(fun){
text <- Examples(fun)
source(textConnection(text), echo = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.