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

> ### Name: element_marquee
> ### Title: ggplot2 theme element supporting marquee syntax
> ### Aliases: element_marquee
> 
> ### ** Examples
> 
> ## Don't show: 
> if (utils::packageVersion("base") > "4.3" && rlang::is_installed("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(ggplot2)
+ p <- ggplot(mtcars) +
+   geom_point(aes(mpg, disp)) +
+   labs(title = "A {.red *marquee*} title\n* Look at this bullet list\n\n* great, huh?") +
+   theme_gray(base_size = 6) +
+   theme(title = element_marquee())
+ 
+ plot(p)
+ 
+ ggplot(mtcars) +
+   geom_histogram(aes(x = mpg)) +
+   labs(title =
+ "I put a plot in your title so you can plot while you title
+ 
+ ![](p)
+ 
+ What more could you _possibly_ want?") +
+   theme(title = element_marquee())
+ ## Don't show: 
+ }) # examplesIf
> library(ggplot2)
> p <- ggplot(mtcars) + geom_point(aes(mpg, disp)) + labs(title = "A {.red *marquee*} title\n* Look at this bullet list\n\n* great, huh?") + 
+     theme_gray(base_size = 6) + theme(title = element_marquee())
> plot(p)

 *** caught segfault ***
address 0x1, cause 'memory not mapped'

Traceback:
 1: get_string_shape_c(strings, id, path, as.integer(index), features,     as.numeric(size), as.numeric(res), as.numeric(lineheight),     as.integer(align) - 1L, as.numeric(hjust), as.numeric(vjust),     as.numeric(max_width), as.numeric(tracking), as.numeric(indent),     as.numeric(hanging), as.numeric(space_before), as.numeric(space_after))
 2: textshaping::shape_text(bullets$bullet, family = parsed$family[bullets$index],     italic = parsed$italic[bullets$index], weight = parsed$weight[bullets$index],     width = parsed$width[bullets$index], features = parsed$features[bullets$index],     size = parsed$size[bullets$index], res = 600, align = "right",     hjust = 1, vjust = 1)
 3: marquee_grob(label, style, x = x, y = y, width = width, hjust = hjust %||%     element$hjust, vjust = vjust %||% element$vjust, angle = angle)
 4: element_grob.element_marquee(el, ...)
 5: element_grob(el, ...)
 6: element_render(theme = theme, element = paste0("axis.title.",     label, modify), label = labels[[label]][[i]], margin_x = label ==     "y", margin_y = label == "x")
 7: FUN(X[[i]], ...)
 8: lapply(c(1, 2), function(i) {    modify <- if (i == 1) {        switch(label, x = ".top", y = ".left")    }    else {        switch(label, x = ".bottom", y = ".right")    }    if (is.null(labels[[label]][[i]]) || is.waive(labels[[label]][[i]]))         return(zeroGrob())    element_render(theme = theme, element = paste0("axis.title.",         label, modify), label = labels[[label]][[i]], margin_x = label ==         "y", margin_y = label == "x")})
 9: FUN(X[[i]], ...)
10: lapply(names(labels), function(label) {    lapply(c(1, 2), function(i) {        modify <- if (i == 1) {            switch(label, x = ".top", y = ".left")        }        else {            switch(label, x = ".bottom", y = ".right")        }        if (is.null(labels[[label]][[i]]) || is.waive(labels[[label]][[i]]))             return(zeroGrob())        element_render(theme = theme, element = paste0("axis.title.",             label, modify), label = labels[[label]][[i]], margin_x = label ==             "y", margin_y = label == "x")    })})
11: render_labels(..., self = self)
12: self$render_labels(labels, theme)
13: render(..., self = self)
14: layout$render(geom_grobs, data, theme, plot$labels)
15: ggplot_gtable.ggplot_built(data)
16: ggplot_gtable(data)
17: plot.ggplot(p)
18: plot(p)
19: eval(ei, envir)
20: eval(ei, envir)
21: withVisible(eval(ei, envir))
22: source(exprs = exprs, local = local, print.eval = print., echo = echo,     max.deparse.length = max.deparse.length, width.cutoff = width.cutoff,     deparseCtrl = deparseCtrl, skip.echo = skip.echo, ...)
23: (if (getRversion() >= "3.4") withAutoprint else force)({    library(ggplot2)    p <- ggplot(mtcars) + geom_point(aes(mpg, disp)) + labs(title = "A {.red *marquee*} title\n* Look at this bullet list\n\n* great, huh?") +         theme_gray(base_size = 6) + theme(title = element_marquee())    plot(p)    ggplot(mtcars) + geom_histogram(aes(x = mpg)) + labs(title = "I put a plot in your title so you can plot while you title\n\n![](p)\n\nWhat more could you _possibly_ want?") +         theme(title = element_marquee())})
An irrecoverable exception occurred. R is aborting now ...