R/flyexample.R

In Dasonk/flydoc: Provide documentation for your functions on the fly.

#' 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)
}