#' A function to print zoonCitation
#'
#' Prints a zoonCitation object to console
#' giving easy access to module citations
#'
#' @param x object of class zoonCitation
#' @param \dots currently ignored
#'
#' @name print.zoonCitation
#' @method print zoonCitation
#' @export
print.zoonCitation <- function(x, ...) {
cat("To cite the", x$name, "module in publications use:\n\n")
cat(paste0(
x$authors, " (", format(x$date_submitted, "%Y"), ")", ". ",
x$title, ". ",
x$note, ". ",
"Available at: ", x$url, "\n\n"
)
)
cat("A BibTeX entry for LaTeX users is:\n\n")
cat(
"@Manual{\n",
paste0(" title = {", x$title, "}\n"),
paste0(" author = {", gsub(", ", " and ", x$authors), "}\n"),
paste0(" year = {", format(x$date_submitted, "%Y"), "}\n"),
paste0(" note = {", x$note, "}\n"),
paste0(" url = {", x$url, "}\n"),
"}"
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.