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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Renderer
> ### Title: 'Renderer'
> ### Aliases: Renderer
> ### Keywords: internal
> 
> ### ** Examples
> 
> 
> ## ------------------------------------------------
> ## Method `Renderer$new`
> ## ------------------------------------------------
> 
> Renderer <- getFromNamespace("Renderer", "teal.reporter")
> Renderer$new()
<Renderer>
  Public:
    clone: function (deep = FALSE) 
    finalize: function () 
    get_output_dir: function () 
    initialize: function () 
    render: function (blocks, yaml_header, global_knitr = getOption("teal.reporter.global_knitr"), 
    renderRmd: function (blocks, yaml_header, global_knitr = getOption("teal.reporter.global_knitr")) 
  Private:
    block2md: function (block) 
    output_dir: /home/hornik/tmp/scratch/RtmpYuqBwn/report_2024062104420 ...
    pictureBlock2md: function (block) 
    rcodeBlock2md: function (block) 
    report_type: NULL
    tableBlock2md: function (block) 
    textBlock2md: function (block) 
> 
> 
> ## ------------------------------------------------
> ## Method `Renderer$renderRmd`
> ## ------------------------------------------------
> 
> 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")
> 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`.
> 
> ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
> card2 <- ReportCard$new()
> 
> card2$append_text("Header 2 text", "header2")
> card2$append_text("A paragraph of default text", "header2")
> 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
Error in nlines(strsplit(s, "\n", fixed = TRUE), max_width = w) : 
  argument "fontspec" is missing, with no default
Calls: build_table ... FUN -> FUN -> vapply -> FUN -> wrap_txt -> open_font_dev
Execution halted