formal_arguments <- function(arguments, def.funs, keep.names=NULL){
if (length(def.funs) > 1)
formal.names <- unique(unlist(lapply(def.funs, function(x)names(formals(x)))))
else
formal.names <- names(formals(def.funs))
args = arguments[names(arguments) %in% formal.names | names(arguments) %in% keep.names]
if (length(args) > 0)
return(args)
else
NULL
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.