Error(s) in re-building vignettes:
  ...
--- re-building ‘quick_use.Rmd’ using rmarkdown
Warning in engine$weave(file, quiet = quiet, encoding = enc) :
  Pandoc (>= 1.12.3) not available. Falling back to R Markdown v1.

 *** caught segfault ***
address a, cause 'memory not mapped'

 *** caught segfault ***
address 4, cause 'memory not mapped'

Traceback:
 1: sparseHessianFun(env, skipFixedEffects = skipFixedEffects)
 2: he(par)
 3: newton(par = c(b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0), fn = function (par.random,     order = 0, ...) {    par[random] <- par.random    par[-random] <- par.fixed    res <- f(par, order = order, ...)    switch(order + 1, res, res[random], res[random, random])}, gr = function (x) f0(x, order = 1), he = function (par.random) {    par[random] <- par.random    par[-random] <- par.fixed    spHess(par, random = TRUE)}, env = <environment>, maxit = 1000, trace = FALSE)
 4: do.call("newton", c(list(par = eval(random.start), fn = f0, gr = function(x) f0(x,     order = 1), he = H0, env = env), inner.control))
 5: doTryCatch(return(expr), name, parentenv, handler)
 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 7: tryCatchList(expr, classes, parentenv, handlers)
 8: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
 9: try(do.call("newton", c(list(par = eval(random.start), fn = f0,     gr = function(x) f0(x, order = 1), he = H0, env = env), inner.control)),     silent = silent)
10: ff(x, order = 0)
11: doTryCatch(return(expr), name, parentenv, handler)
12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
13: tryCatchList(expr, classes, parentenv, handlers)
14: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
15: try({    if (MCcontrol$doMC) {        ff(x, order = 0)        MC(last.par, n = MCcontrol$n, seed = MCcontrol$seed,             order = 0)    }    else ff(x, order = 0)}, silent = silent)
16: obj$fn(obj$par)
17: fitTMB(TMBStruc)
18: glmmTMB(formula = model_formula, data = test_data, family = binomial)
19: eval(expr, envir, enclos)
20: eval(expr, envir, enclos)
21: withVisible(eval(expr, envir, enclos))
22: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,     error = eHandler, message = mHandler)
23: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,     enclos)), warning = wHandler, error = eHandler, message = mHandler))
24: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
25: 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)
26: evaluate::evaluate(...)
27: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),     keep_message = !isFALSE(options$message), stop_on_error = if (is.numeric(options$error)) options$error else {        if (options$error && options$include)             0L        else 2L    }, output_handler = knit_handlers(options$render, options))
28: 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 (is.numeric(options$error)) options$error else {        if (options$error && options$include)             0L        else 2L    }, output_handler = knit_handlers(options$render, options)))
29: eng_r(options)
30: block_exec(params)
31: call_block(x)
32: process_group.block(group)
33: process_group(group)
34: 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"),             ") ")    })

Traceback:
 1: sparseHessianFun(env, skipFixedEffects = skipFixedEffects)
 2: he(par)
 3: newton(par = c(b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0, b = 0), fn = function (par.random,     order = 0, ...) {    par[random] <- par.random    par[-random] <- par.fixed    res <- f(par, order = order, ...)    switch(order + 1, res, res[random], res[random, random])}, gr = function (x) f0(x, order = 1), he = function (par.random) {    par[random] <- par.random    par[-random] <- par.fixed    spHess(par, random = TRUE)}, env = <environment>, maxit = 1000, trace = FALSE)
 4: do.call("newton", c(list(par = eval(random.start), fn = f0, gr = function(x) f0(x,     order = 1), he = H0, env = env), inner.control))
 5: doTryCatch(return(expr), name, parentenv, handler)
 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 7: tryCatchList(expr, classes, parentenv, handlers)
 8: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
 9: try(do.call("newton", c(list(par = eval(random.start), fn = f0,     gr = function(x) f0(x, order = 1), he = H0, env = env), inner.control)),     silent = silent)
10: ff(x, order = 0)
11: doTryCatch(return(expr), name, parentenv, handler)
12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
13: tryCatchList(expr, classes, parentenv, handlers)
14: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
15: try({    if (MCcontrol$doMC) {        ff(x, order = 0)        MC(last.par, n = MCcontrol$n, seed = MCcontrol$seed,             order = 0)    }    else ff(x, order = 0)}, silent = silent)
16: obj$fn(obj$par)
17: fitTMB(TMBStruc)
18: glmmTMB(formula = model_formula, data = test_data, family = binomial)
19: eval(expr, envir, enclos)
20: eval(expr, envir, enclos)
21: withVisible(eval(expr, envir, enclos))
22: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,     error = eHandler, message = mHandler)
23: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,     enclos)), warning = wHandler, error = eHandler, message = mHandler))
24: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
25: 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)
26: evaluate::evaluate(...)
27: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),     keep_message = !isFALSE(options$message), stop_on_error = if (is.numeric(options$error)) options$error else {        if (options$error && options$include)             0L        else 2L    }, output_handler = knit_handlers(options$render, options))
28: 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 (is.numeric(options$error)) options$error else {        if (options$error && options$include)             0L        else 2L    }, output_handler = knit_handlers(options$render, options)))
29: eng_r(options)
30: block_exec(params)
31: call_block(x)
32: process_group.block(group)
33: 35: process_file(text, output)
36: knit(input, text = text, envir = envir, quiet = quiet)
37: (if (grepl("show.e]md$", file)) knit2html else if (grepl("\\.[Rr]rst$",     file)) knit2pandoc else knit)(file, encoding = encoding,     quiet = quiet, envir = globalenv(), ...)
38: vweave(...)
39: engine$weave(file, quiet = quiet, encoding = enc)
40: doTryCatch(return(expr), name, parentenv, handler)
41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
42: tryCatchList(expr, classes, parentenv, handlers)
43: tryCatch({    engine$weave(file, quiet = quiet, encoding = enc)    setwd(startdir)    output <- find_vignette_product(name, by = "weave", engine = engine)    if (!have.makefile && vignette_is_tex(output)) {        texi2pdf(file = output, clean = FALSE, quiet = quiet)        output <- find_vignette_product(name, by = "texi2pdf",             engine = engine)    }    outputs <- c(outputs, output)process_group(group)
34: 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"),             ") ")    })
35: process_file(text, output)
36: knit(input, text = text, envir = envir, quiet = quiet)
37: (if (grepl("\\.[Rr]md$", file)) knit2html else if (grepl("\\.[Rr]rst$",     file)) knit2pandoc else knit)(file, encoding = encoding,     quiet = quiet, envir = globalenv(), ...)
38: vweave(...)
39: engine$weave(file, quiet = quiet, encoding = enc)
40: doTryCatch(return(expr), name, parentenv, handler)
41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
42: tryCatchList(expr, classes, parentenv, handlers)
43: tryCatch({    engine$weave(file, quiet = quiet, encoding = enc)    setwd(startdir)    output <- find_vignette_product(name, by = "weave", engine = engine)    if (!have.makefile && vignette_is_tex(output)) {        texi2pdf(file = output, clean = FALSE, quiet = quiet)        output <- find_vignette_product(name, by = "texi2pdf",             engine = engine)    }    outputs <- c(outputs, output)}, error = function(e) {    thisOK <<- FALSE    fails <<- c(fails, file)    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",         file, conditionMessage(e)))})
44: tools:::buildVignettes(dir = "/home/ripley/R/packages/tests32/glmmboot.Rcheck/vign_test/glmmboot",     ser_elibs = "/tmp/RtmpqWaOWo/file1d855076278.rds")
An irrecoverable exception occurred. R is aborting now ...
}, error = function(e) {    thisOK <<- FALSE    fails <<- c(fails, file)    message(gettextf("b", file, conditionMessage(e)))})
44: tools:::buildVignettes(dir = "\n", ser_elibs = "b")
An irrecoverable exception occurred. R is aborting now ...