#' Print quickpsy objects
#' @param x A quickpsy object.
#' @param ... Other arguments
#' @export
print.quickpsy <- function(x, ...)
{
cat("par\n")
print(x$par)
if ("thresholds" %in% names(x)) {
cat("thresholds\n")
print(x$thresholds)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.