Error in re-building vignettes:
  ...

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

Traceback:
 1: terminals$pos_id
 2: eval_tidy(xs[[i]], unique_output)
 3: lst_quos(xs, expand = TRUE)
 4: as_tibble(lst_quos(xs, expand = TRUE))
 5: data_frame(pos_id = terminals$pos_id, token_after = lead(terminals$token,     default = ""))
 6: eval(lhs, parent, parent)
 7: eval(lhs, parent, parent)
 8: data_frame(pos_id = terminals$pos_id, token_after = lead(terminals$token,     default = "")) %>% left_join(pd_flat, ., by = "pos_id")
 9: add_terminal_token_after(.)
10: function_list[[k]](value)
11: withVisible(function_list[[k]](value))
12: freduce(value, `_function_list`)
13: `_fseq`(`_lhs`)
14: eval(quote(`_fseq`(`_lhs`)), env, env)
15: eval(quote(`_fseq`(`_lhs`)), env, env)
16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
17: tokenize(text) %>% add_terminal_token_before() %>% add_terminal_token_after()
18: compute_parse_data_nested(text)
19: parse_transform_serialize(text, transformers)
20: transformer(text)
21: .f(.x[[i]], ...)
22: purrr::map(., styler::style_text)
23: function_list[[k]](value)
24: withVisible(function_list[[k]](value))
25: freduce(value, `_function_list`)
26: `_fseq`(`_lhs`)
27: eval(quote(`_fseq`(`_lhs`)), env, env)
28: eval(quote(`_fseq`(`_lhs`)), env, env)
29: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
30: text_expr %>% parse(text = .) %>% purrr::map(deparse) %>% purrr::map(styler::style_text)
31: extract_expressions(example_block)
32: (function (example_block, desc = "", e_e = TRUE) {    checkmate::assert_character(example_block)    if (!length(example_block))         return(character(0))    expressions <- extract_expressions(example_block)    if (e_e) {        for_checking <- expressions %>% purrr::map(filesstrings::remove_quoted) %>%             purrr::map(stringr::str_replace_all, " ", "")        leave_alone <- purrr::map_lgl(for_checking, ~any(stringr::str_detect(.,             paste0("(?:<-|^stop\\(|^warning", "\\(|^#|^setwd\\(|^library\\(|",                 "^plot\\(|^ggplot\\(|^print", "\\(|^set\\.seed\\()"))))        inside_test_that <- purrr::map2(leave_alone, expressions,             ~if (.x) {                .y            }            else {                construct_expect_equal(.y)            }) %>% unlist()    }    else {        inside_test_that <- unlist(expressions)    }    c(paste0("test_that(\"", desc, "\", {"), paste(" ", inside_test_that),         "})")})(dots[[1L]][[1L]], dots[[2L]][[1L]], e_e = dots[[3L]][[1L]])
33: mapply(make_test_shell, SIMPLIFY = FALSE, exampless, paste0("`",     names(exampless), "()` works"), e_e = e_e)
34: make_tests_shells_file("match", pkg_dir = "tempkg", open = FALSE)
35: eval(expr, envir, enclos)
36: eval(expr, envir, enclos)
37: withVisible(eval(expr, envir, enclos))
38: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,     error = eHandler, message = mHandler)
39: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,     enclos)), warning = wHandler, error = eHandler, message = mHandler))
40: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
41: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,     debug = debug, last = i == length(out), use_try = stop_on_error !=         2L, keep_warning = keep_warning, keep_message = keep_message,     output_handler = output_handler, include_timing = include_timing)
42: evaluate::evaluate(...)
43: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&         options$include) 0L else 2L, output_handler = knit_handlers(options$render,         options))
44: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),     stop_on_error = if (options$error && options$include) 0L else 2L,     output_handler = knit_handlers(options$render, options)))
45: block_exec(params)
46: call_block(x)
47: process_group.block(group)
48: process_group(group)
49: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),     error = function(e) {        setwd(wd)        cat(res, sep = "\n", file = output %n% "")        message("Quitting from lines ", paste(current_lines(i),             collapse = "-"), " (", knit_concord$get("infile"),             ") ")    })
50: process_file(text, output)
51: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet,     encoding = encoding)
52: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv())
53: vweave_rmarkdown(...)
54: engine$weave(file, quiet = quiet, encoding = enc)
55: doTryCatch(return(expr), name, parentenv, handler)
56: tryCatchOne(expr, names, parentenv, handlers[[1L]])
57: tryCatchList(expr, classes, parentenv, handlers)
58: tryCatch({    engine$weave(file, quiet = quiet, encoding = enc)    setwd(startdir)    find_vignette_product(name, by = "weave", engine = engine)}, error = function(e) {    stop(gettextf("processing vignette '%s' failed with diagnostics:\n%s",         file, conditionMessage(e)), domain = NA, call. = FALSE)})
59: buildVignettes(dir = "/home/hornik/tmp/R.check/r-patched-gcc/Work/PKGS/exampletestr.Rcheck/vign_test/exampletestr")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault