Error in re-building vignettes:
  ...

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union


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

Traceback:
 1: .data$text
 2: eval_tidy(enquo(var), var_env)
 3: tidyselect::vars_pull(names(.data), !!enquo(var))
 4: pull.data.frame(., .data$text)
 5: dplyr::pull(., .data$text)
 6: function_list[[i]](value)
 7: freduce(value, `_function_list`)
 8: `_fseq`(`_lhs`)
 9: eval(quote(`_fseq`(`_lhs`)), env, env)
10: eval(quote(`_fseq`(`_lhs`)), env, env)
11: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
12: .x %>% dplyr::pull(.data$text) %>% stringr::str_c(collapse = " ") %>%     stringr::str_wrap() %>% stringr::str_split("\n *")
13: .f(.x[[i]], ...)
14: purrr::map(., ~.x %>% dplyr::pull(.data$text) %>% stringr::str_c(collapse = " ") %>%     stringr::str_wrap() %>% stringr::str_split("\n *"))
15: function_list[[i]](value)
16: freduce(value, `_function_list`)
17: `_fseq`(`_lhs`)
18: eval(quote(`_fseq`(`_lhs`)), env, env)
19: eval(quote(`_fseq`(`_lhs`)), env, env)
20: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
21: words %>% dplyr::mutate(split = floor((seq_len(NROW(words)) -     1L)/wot_number)) %>% split(.$split) %>% purrr::map(~.x %>%     dplyr::pull(.data$text) %>% stringr::str_c(collapse = " ") %>%     stringr::str_wrap() %>% stringr::str_split("\n *")) %>% unlist()
22: word_to_line(.)
23: function_list[[i]](value)
24: freduce(value, `_function_list`)
25: `_fseq`(`_lhs`)
26: eval(quote(`_fseq`(`_lhs`)), env, env)
27: eval(quote(`_fseq`(`_lhs`)), env, env)
28: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
29: book %>% dplyr::filter(paragraph_id == .x) %>% word_to_line() %>%     data.frame(text = ., stringsAsFactors = FALSE)
30: .f(.x[[i]], ...)
31: map(.x, .f, ...)
32: purrr::map_df(book %>% dplyr::pull(.data$paragraph_id) %>% unique(),     ~book %>% dplyr::filter(paragraph_id == .x) %>% word_to_line() %>%         data.frame(text = ., stringsAsFactors = FALSE))
33: ggpage_build(book, para.fun = rpois, lambda = 75)
34: eval(lhs, parent, parent)
35: eval(lhs, parent, parent)
36: ggpage_build(book, para.fun = rpois, lambda = 75) %>% ggpage_plot()
37: eval(expr, envir, enclos)
38: eval(expr, envir, enclos)
39: withVisible(eval(expr, envir, enclos))
40: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,     error = eHandler, message = mHandler)
41: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,     enclos)), warning = wHandler, error = eHandler, message = mHandler))
42: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
43: 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)
44: evaluate::evaluate(...)
45: 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))
46: 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)))
47: block_exec(params)
48: call_block(x)
49: process_group.block(group)
50: process_group(group)
51: 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"),             ") ")    })
52: process_file(text, output)
53: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet,     encoding = encoding)
54: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv())
55: vweave_rmarkdown(...)
56: engine$weave(file, quiet = quiet, encoding = enc)
57: doTryCatch(return(expr), name, parentenv, handler)
58: tryCatchOne(expr, names, parentenv, handlers[[1L]])
59: tryCatchList(expr, classes, parentenv, handlers)
60: 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)})
61: buildVignettes(dir = "/home/hornik/tmp/R.check/r-patched-gcc/Work/PKGS/ggpage.Rcheck/vign_test/ggpage")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault