#' @export
print.fielddescriptor <- function(x, ...) {
cat("Field Descriptor:\n")
utils::str(x, max.level=1, give.attr=FALSE, no.list = TRUE,
comp.str="", indent.str="", give.head = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.