#' @title print_command
#' @description unknown
#' @family abysmally documented
#' @author unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
print_command <- function(x) {
default.args <- attr(x, "default.args")
if (!length(default.args)) default.args <- list()
res <- do.call(x, default.args, envir = parent.frame())
if(!is.null(res)) print(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.