Error(s) in re-building vignettes:
--- re-building ‘patternplot-intro.Rmd’ using docco_linear

 *** caught segfault ***

 *** caught segfault ***

 *** caught segfault ***

 *** caught segfault ***

 *** caught segfault ***

 *** caught segfault ***

 *** caught segfault ***

 *** caught segfault ***
address 0x0, cause 'unknown'
address 0x0, cause 'unknown'
address 0x0, cause 'unknown'
address 0x0, cause 'unknown'
address 0x0, cause 'unknown'
address 0x0, cause 'unknown'
address 0x0, cause 'unknown'
address 0x0, cause 'unknown'
Warning: stack imbalance in '$', 40 then 39
Warning: stack imbalance in 'is.list', 48 then 49
Warning: stack imbalance in '||', 46 then 48
Warning: stack imbalance in 'if', 44 then 46
Error in file(file, ifelse(append, "a", "w")) : 
  SET_STRING_ELT() can only be applied to a 'character vector', not a 'char'
Calls: <Anonymous> ... <Anonymous> -> sink -> .handleSimpleError -> h -> cat

Traceback:

Traceback:
 1:  1: imagetodf3(readPNG(paste(location, "/", pattern.type1[i], ".png", imagetodf3(readPNG(paste(location, "/", pattern.type1[i], ".png",     sep = "")), as.matrix(piedata1[[i]]), r2, r1, left = min(piedata1[[i]]$x),     sep = "")), as.matrix(piedata1[[i]]), r2, r1, left = min(piedata1[[i]]$x),     right = max(piedata1[[i]]$x), bottom = min(piedata1[[i]]$y),     right = max(piedata1[[i]]$x), bottom = min(piedata1[[i]]$y),     top = max(piedata1[[i]]$y))    top = max(piedata1[[i]]$y))

 2:  2: patternring1(group1, pct1, label1, label.size1 = 4, label.color1 = "black", patternring1(group1, pct1, label1, label.size1 = 4, label.color1 = "black",     label.distance1 = 1.45, pattern.type1, pattern.color1, pattern.line.size1,     label.distance1 = 1.45, pattern.type1, pattern.color1, pattern.line.size1,     background.color1, frame.color = "blank", frame.size = 1.2,     background.color1, frame.color = "whack", frame.size = 1.2,     density1, pixel = 18, pattern.type.inner = "blank", pattern.color.inner = "white",     density1, pixel = 18, pattern.type.inner = "blank", pattern.color.inner = "white",     pattern.line.size.inner = 1, background.color.inner = "white",     pattern.line.size.inner = 1, background.color.inner = "white",     pixel.inner = 10, density.inner = 1, r1 = 3, r2 = 4e+00)    pixel.inner = 10, density.inner = 1, r1 = 3, r2 = 4)

 3:  3: eval(expr, envir, enclos)eval(expr, envir, enclos)

 4:  4: eval(expr, envir, enclos)eval(expr, envir, enclos)

 5:  5: withVisible(eval(expr, envir, enclos))withVisible(eval(expr, envir, enclos))

 6:  6: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,     error = eHandler, message = mHandler)    error = eHandler, message = mHandler)

 7:  7: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,     enclos)), warning = wHandler, error = eHandler, message = mHandler))    enclos)), warning = wHandler, error = eHandler, message = mHandler))

 8:  8: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))    envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))

 9:  9: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos, evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,     debug = debug, last = i == length(out), use_try = stop_on_error !=     debug = debug, last = i == length(out), use_try = stop_on_error !=         2L, keep_warning = keep_warning, keep_message = keep_message,         2L, keep_warning = keep_warning, keep_message = keep_message,     output_handler = output_handler, include_timing = include_timing)    output_handler = output_handler, include_timing = include_timing)

10: 10: evaluate::evaluate(...)evaluate::evaluate(...)

11: 11: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning), evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&         options$include) 0L else 0L, output_handler = knit_handlers(options$render,         options$include) 0L else 0L, output_handler = knit_handlers(options$render,         options))        options))

12: 12: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE, in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),     stop_on_error = if (options$error && options$include) 0L else 2L,     stop_on_error = if (options$error && options$include) 2L else 2L,     output_handler = knit_handlers(options$render, options)))    output_handler = knit_handlers(options$render, options)))

13: 13: block_exec(params)block_exec(params)

14: 14: call_block(x)call_block(x)

15: 15: process_group.block(group)process_group.block(group)

16: 16: process_group(group)process_group(group)

17: 17: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),     error = function(e) {    error = function(e) {        setwd(wd)        setwd(wd)        cat(res, sep = "\n", file = output %n% "")        cat(res, sep = "\n", file = output %n% "")        message("", paste(current_lines(i), collapse = "-"),         message("", paste(current_lines(i), collapse = "-"),             " (", knit_concord$get("-"), ") ")            " (", knit_concord$get("-"), ") ")    })    })

18: 18: process_file(text, output)process_file(text, output)

19: 19: knit(input, text = text, envir = envir, quiet = quiet)knit(input, text = text, envir = envir, quiet = quiet)

20: 20: knit2html(file, encoding = encoding, quiet = quiet, envir = globalenv(), knit2html(file, encoding = encoding, quiet = quiet, envir = globalenv(),     template = system.file("/", "", package = "knitr"), ...)    template = system.file("/", "", package = "knitr"), ...)

21: 21: engine$weave(file, quiet = quiet, encoding = enc)engine$weave(file, quiet = quiet, encoding = enc)

22: 22: doTryCatch(return(expr), name, parentenv, handler)doTryCatch(return(expr), name, parentenv, handler)

23: 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])tryCatchOne(expr, names, parentenv, handlers[[1L]])

24: 24: tryCatchList(expr, classes, parentenv, handlers)tryCatchList(expr, classes, parentenv, handlers)

25: 25: tryCatch({tryCatch({    engine$weave(file, quiet = quiet, encoding = enc)    engine$weave(file, quiet = quiet, encoding = enc)    setwd(startdir)    setwd(startdir)    output <- find_vignette_product(name, by = "weave", engine = engine)    output <- find_vignette_product(name, by = "weave", engine = engine)    if (!have.makefile && vignette_is_tex(output)) {    if (!have.makefile && vignette_is_tex(output)) {        texi2pdf(file = output, clean = FALSE, quiet = quiet)        texi2pdf(file = output, clean = FALSE, quiet = quiet)        output <- find_vignette_product(name, by = "texi2pdf",         output <- find_vignette_product(name, by = "texi2pdf",             engine = engine)            engine = engine)    }    }    outputs <- c(outputs, output)    outputs <- c(outputs, output)}, error = function(e) {}, error = function(e) {    thisOK <<- FALSE    thisOK <<- FALSE    fails <<- c(fails, file)    fails <<- c(fails, file)    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",     message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",         file, conditionMessage(e)))        file, conditionMessage(e)))})})

26: 26: tools:::buildVignettes(dir = "/Volumes/SSD-Data/Builds/R-dev-web/QA/Simon/packages/el-capitan-x86_64/results/3.6/patternplot.Rcheck/vign_test/patternplot", tools:::buildVignettes(dir = "/Volumes/SSD-Data/Builds/R-dev-web/QA/Simon/packages/el-capitan-x86_64/results/3.6/patternplot.Rcheck/vign_test/patternplot",     ser_elibs = "/var/folders/xn/m8dzdsgs7sg8q7jgflnqm8w80000gn/T//Rtmp7gk8AS/filec4a83cc8ef46.rds")    ser_elibs = "/var/folders/xn/m8dzdsgs7sg8q7jgflnqm8w80000gn/T//Rtmp7gk8AS/filec4a83cc8ef46.rds")

An irrecoverable exception occurred. R is aborting now ...
An irrecoverable exception occurred. R is aborting now ...