Running examples in ‘teal.reporter-Ex.R’ failed
The error most likely occurred in:

> ### Name: Renderer
> ### Title: 'Renderer'
> ### Aliases: Renderer
> ### Keywords: internal
> 
> ### ** Examples
> 
> ## Don't show: 
> if (require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(yaml)
+ library(rtables)
+ library(ggplot2)
+ 
+ ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
+ Reporter <- getFromNamespace("Reporter", "teal.reporter")
+ yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
+ md_header <- getFromNamespace("md_header", "teal.reporter")
+ Renderer <- getFromNamespace("Renderer", "teal.reporter")
+ 
+ card1 <- ReportCard$new()
+ card1$append_text("Header 2 text", "header2")
+ card1$append_text("A paragraph of default text")
+ card1$append_plot(
+  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
+ )
+ 
+ card2 <- ReportCard$new()
+ card2$append_text("Header 2 text", "header2")
+ card2$append_text("A paragraph of default text")
+ lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
+ table_res2 <- build_table(lyt, airquality)
+ card2$append_table(table_res2)
+ card2$append_rcode("2+2", echo = FALSE)
+ 
+ reporter <- Reporter$new()
+ reporter$append_cards(list(card1, card2))
+ 
+ yaml_l <- list(
+   author = yaml_quoted("NEST"),
+   title = yaml_quoted("Report"),
+   date = yaml_quoted("07/04/2019"),
+   output = list(html_document = list(toc = FALSE))
+ )
+ 
+ yaml_header <- md_header(as.yaml(yaml_l))
+ 
+ result_path <- Renderer$new()$renderRmd(reporter$get_blocks(), yaml_header)
+ ## Don't show: 
+ }) # examplesIf
Loading required package: ggplot2
> library(yaml)
> library(rtables)
Loading required package: formatters

Attaching package: ‘formatters’

The following object is masked from ‘package:base’:

    %||%

Loading required package: magrittr

Attaching package: ‘rtables’

The following object is masked from ‘package:utils’:

    str

> library(ggplot2)
> ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
> Reporter <- getFromNamespace("Reporter", "teal.reporter")
> yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
> md_header <- getFromNamespace("md_header", "teal.reporter")
> Renderer <- getFromNamespace("Renderer", "teal.reporter")
> card1 <- ReportCard$new()
> card1$append_text("Header 2 text", "header2")
> card1$append_text("A paragraph of default text")
> card1$append_plot(ggplot(iris, aes(x = Petal.Length)) + geom_histogram())
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
> card2 <- ReportCard$new()
> card2$append_text("Header 2 text", "header2")
> card2$append_text("A paragraph of default text")
> lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
> table_res2 <- build_table(lyt, airquality)
Split var [Day] was not character or factor. Converting to factor
> card2$append_table(table_res2)
> card2$append_rcode("2+2", echo = FALSE)
> reporter <- Reporter$new()
> reporter$append_cards(list(card1, card2))
> yaml_l <- list(author = yaml_quoted("NEST"), title = yaml_quoted("Report"), 
+     date = yaml_quoted("07/04/2019"), output = list(html_document = list(toc = FALSE)))
> yaml_header <- md_header(as.yaml(yaml_l))
> result_path <- Renderer$new()$renderRmd(reporter$get_blocks(), yaml_header)
> ## End(Don't show)
> ## Don't show: 
> if (require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(yaml)
+ library(ggplot2)
+ 
+ ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
+ Reporter <- getFromNamespace("Reporter", "teal.reporter")
+ yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
+ md_header <- getFromNamespace("md_header", "teal.reporter")
+ Renderer <- getFromNamespace("Renderer", "teal.reporter")
+ 
+ card1 <- ReportCard$new()
+ card1$append_text("Header 2 text", "header2")
+ card1$append_text("A paragraph of default text")
+ card1$append_plot(
+  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
+ )
+ 
+ card2 <- ReportCard$new()
+ card2$append_text("Header 2 text", "header2")
+ card2$append_text("A paragraph of default text")
+ lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
+ table_res2 <- build_table(lyt, airquality)
+ card2$append_table(table_res2)
+ card2$append_rcode("2+2", echo = FALSE)
+ 
+ reporter <- Reporter$new()
+ reporter$append_cards(list(card1, card2))
+ 
+ yaml_l <- list(
+   author = yaml_quoted("NEST"),
+   title = yaml_quoted("Report"),
+   date = yaml_quoted("07/04/2019"),
+   output = list(html_document = list(toc = FALSE))
+ )
+ 
+ yaml_header <- md_header(as.yaml(yaml_l))
+ result_path <- Renderer$new()$render(reporter$get_blocks(), yaml_header)
+ ## Don't show: 
+ }) # examplesIf
> library(yaml)
> library(ggplot2)
> ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
> Reporter <- getFromNamespace("Reporter", "teal.reporter")
> yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
> md_header <- getFromNamespace("md_header", "teal.reporter")
> Renderer <- getFromNamespace("Renderer", "teal.reporter")
> card1 <- ReportCard$new()
> card1$append_text("Header 2 text", "header2")
> card1$append_text("A paragraph of default text")
> card1$append_plot(ggplot(iris, aes(x = Petal.Length)) + geom_histogram())
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
> card2 <- ReportCard$new()
> card2$append_text("Header 2 text", "header2")
> card2$append_text("A paragraph of default text")
> lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
> table_res2 <- build_table(lyt, airquality)
Split var [Day] was not character or factor. Converting to factor
> card2$append_table(table_res2)
> card2$append_rcode("2+2", echo = FALSE)
> reporter <- Reporter$new()
> reporter$append_cards(list(card1, card2))
> yaml_l <- list(author = yaml_quoted("NEST"), title = yaml_quoted("Report"), 
+     date = yaml_quoted("07/04/2019"), output = list(html_document = list(toc = FALSE)))
> yaml_header <- md_header(as.yaml(yaml_l))
> result_path <- Renderer$new()$render(reporter$get_blocks(), yaml_header)
Error: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).
Execution halted