print.mpr <- function(x, ...) {
msg <- attr(x, "msg")
if (!is.null(msg) && nchar(msg) > 0) warning(msg)
cat(x, ..., "\n", sep = "")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.