## writeFunction
##
##' Prints a function to a file.
##'
##' @title Function output
##' @param fun A function.
##' @param file A character string naming a file. By default, write
##' the function in \code{<fun>.R} in the working directory.
##' @author Mathieu Basille \email{basille@@ufl.edu}
##' @export
##' @examples
##' f1 <- function(x) {
##' ## Comment
##' print(x)
##' }
##' writeFunction(f1)
##' rm(f1)
##' source("f1.R")
##' file.remove("f1.R")
##' f1(3)
writeFunction <- function(fun, file = NULL)
{
if (!is.function(fun))
stop("fun should be a function")
name <- deparse(substitute(fun))
if (is.null(file))
connection <- file(paste(name, ".R", sep = ""),
"w")
else connection <- file(file)
writeChar(paste(name, " <- ", sep = ""), connection, eos = NULL)
dput(fun, connection)
close(connection)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.