Add support

mrc-ide · Oct 14, 2024 · f811039 · f811039
1 parent 61399e5
commit f811039
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/vignettes/support.R b/vignettes/support.R
@@ -0,0 +1,13 @@
+knitr::opts_chunk$set(
+  error = FALSE,
+  collapse = TRUE,
+  comment = "#>",
+  fig.width = 7,
+  fig.height = 5)
+
+lang_output <- function(x, lang) {
+  cat(c(sprintf("```%s", lang), x, "```"), sep = "\n")
+}
+cc_output <- function(x) lang_output(x, "cc")
+r_output <- function(x) lang_output(x, "r")
+plain_output <- function(x) lang_output(x, "plain")