#' @export
print.methcon <- function(x, ...) {
cat("# Methcon object\n")
cat("# .id:", attr(x, ".id"), "\n")
cat("# .value:", attr(x, ".value"), "\n")
class(x) <- setdiff(class(x), "methcon")
print(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.