#' Royal Statistical Society Journal Format
#'
#' Format for creating articles for Royal Statistical Society adapted from
#' <https://rss.org.uk/news-publication/publications/journals/submit-paper/>.
#' @inheritParams rmarkdown::pdf_document
#' @param ... Arguments to [rmarkdown::pdf_document()]
#' @export
rss_article <- function(..., keep_tex = TRUE, citation_package = "natbib") {
fmt <- pdf_document_format(
"rss",
highlight = NULL, citation_package = citation_package,
keep_tex = keep_tex, ...
)
fmt$knitr$knit_hooks$source <- function(x, options) {
if (options$prompt && length(x)) {
x <- gsub("\\n", paste0("\n", getOption("continue")), x)
x <- paste0(getOption("prompt"), x)
}
paste0(
c(
"\n\\begin{lstlisting}[language=",
options$engine,
"]",
x,
"\\end{lstlisting}",
""
),
collapse = "\n"
)
}
fmt
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.