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 bus error ***
address 0x7f6f555b8c50, cause 'non-existent physical address'

Traceback:
 1: .Call(`_dplyr_summarise_impl`, df, dots)
 2: summarise_impl(.data, dots)
 3: summarise.tbl_df(.tbl, !(!(!funs)))
 4: summarise(.tbl, !(!(!funs)))
 5: summarise_all(., .safe_mean)
 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: group_by(data_over_sp, BAU_name) %>% summarise_all(.safe_mean) %>%     as.data.frame()
13: system.time({    diff_fields <- intersect(setdiff(names(data_sp), names(sp_pols)),         names(data_sp))    data_df <- data_sp@data[diff_fields]    data_over_sp <- .parallel_over(data_sp, sp_pols)    data_over_sp <- cbind(data_df, data_over_sp)    if (any(is.na(data_over_sp$BAU_name))) {        ii <- which(is.na((data_over_sp$BAU_name)))        data_sp <- data_sp[-ii, ]        data_over_sp <- data_over_sp[-ii, ]        warning("Removing data points that do not fall into any BAUs.\n                              If you have simulated data, please ensure no simulated data fall on a\n                              BAU boundary as these classify as not belonging to any BAU.")    }    if (average_in_BAU)         Data_in_BAU <- group_by(data_over_sp, BAU_name) %>% summarise_all(.safe_mean) %>%             as.data.frame()    else Data_in_BAU <- data_over_sp})
14: .local(data_sp, sp_pols, average_in_BAU)
15: map_data_to_BAUs(data[[i]], BAUs, average_in_BAU = average_in_BAU)
16: map_data_to_BAUs(data[[i]], BAUs, average_in_BAU = average_in_BAU)
17: SRE(f = f, list(AIRS_05_2003), basis = G, BAUs = isea3h_sp_poldf,     est_error = FALSE, average_in_BAU = TRUE)
18: eval(expr, envir, enclos)
19: eval(expr, envir, enclos)
20: withVisible(eval(expr, envir, enclos))
21: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,     error = eHandler, message = mHandler)
22: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,     enclos)), warning = wHandler, error = eHandler, message = mHandler))
23: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
24: 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)
25: evaluate::evaluate(...)
26: 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))
27: 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)))
28: block_exec(params)
29: call_block(x)
30: process_group.block(group)
31: process_group(group)
32: 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"),             ") ")    })
33: process_file(text, output)
34: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",     file)) knit2pandoc else knit)(file, encoding = encoding,     quiet = quiet, envir = globalenv())
35: engine$weave(file, quiet = quiet, encoding = enc)
36: doTryCatch(return(expr), name, parentenv, handler)
37: tryCatchOne(expr, names, parentenv, handlers[[1L]])
38: tryCatchList(expr, classes, parentenv, handlers)
39: 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)})
40: buildVignettes(dir = "/home/hornik/tmp/R.check/r-patched-gcc/Work/PKGS/FRK.Rcheck/vign_test/FRK")
An irrecoverable exception occurred. R is aborting now ...
Bus error