CRAN Package Check Results for Package ggdag

Last updated on 2020-01-23 19:48:58 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.2.1 9.07 152.77 161.84 OK
r-devel-linux-x86_64-debian-gcc 0.2.1 8.06 113.87 121.93 OK
r-devel-linux-x86_64-fedora-clang 0.2.1 139.38 ERROR
r-devel-linux-x86_64-fedora-gcc 0.2.1 137.58 ERROR
r-devel-windows-ix86+x86_64 0.2.1 47.00 215.00 262.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.2.1 30.00 162.00 192.00 OK
r-patched-linux-x86_64 0.2.1 8.56 137.37 145.93 OK
r-patched-solaris-x86 0.2.1 216.30 NOTE
r-release-linux-x86_64 0.2.1 8.80 133.64 142.44 OK
r-release-windows-ix86+x86_64 0.2.1 15.00 138.00 153.00 OK
r-release-osx-x86_64 0.2.1 NOTE
r-oldrel-windows-ix86+x86_64 0.2.1 9.00 132.00 141.00 OK
r-oldrel-osx-x86_64 0.2.1 NOTE

Additional issues

noSuggests

Check Details

Version: 0.2.1
Check: dependencies in R code
Result: NOTE
    Namespaces in Imports field not imported from:
     ‘ggforce’ ‘plyr’
     All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64

Version: 0.2.1
Check: examples
Result: ERROR
    Running examples in ‘ggdag-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: Covariate Adjustment Sets
    > ### Title: Covariate Adjustment Sets
    > ### Aliases: 'Covariate Adjustment Sets' dag_adjustment_sets
    > ### ggdag_adjustment_set
    >
    > ### ** Examples
    >
    > dag <- dagify(y ~ x + z2 + w2 + w1,
    + x ~ z1 + w1,
    + z1 ~ w1 + v,
    + z2 ~ w2 + v,
    + w1 ~~ w2,
    + exposure = "x",
    + outcome = "y")
    
    
    #
    # Fatal error in , line 0
    # Failed to create ICU collator, are ICU data files missing?
    #
    #
    #
    #FailureMessage Object: 0x7ffda1ce1620
    ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7f7c7721f45a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7f7c767a78b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7f7c7721af57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7f7c76efc413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7f7c770214a2]
     [0x8a1f17dc0d8]
    
     *** caught illegal operation ***
    address 0x7f7c765e59a5, cause 'illegal operand'
    
    Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassign(xv, as.character(x)) .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()")) r <- structure(.jsget(xv), class = "dagitty")}, error = function(e) { stop(e)}, finally = { .deleteJSVar(xv)})
    10: dagitty::dagitty(dag_txt)
    11: dagify(y ~ x + z2 + w2 + w1, x ~ z1 + w1, z1 ~ w1 + v, z2 ~ w2 + v, w1 ~ ~w2, exposure = "x", outcome = "y")
    An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.2.1
Check: tests
Result: ERROR
     Running ‘spelling.R’
     Running ‘testthat.R’ [5s/21s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(ggdag)
     Loading required package: ggplot2
    
     Attaching package: 'ggdag'
    
     The following object is masked from 'package:ggplot2':
    
     expand_scale
    
     The following object is masked from 'package:stats':
    
     filter
    
     >
     > test_check("ggdag")
    
    
     #
     # Fatal error in , line 0
     # Failed to create ICU collator, are ICU data files missing?
     #
     #
     #
     #FailureMessage Object: 0x7ffddc29b6d0
     ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7ff5a3a5045a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7ff5a2fd88b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7ff5a3a4bf57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7ff5a372d413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7ff5a38524a2]
     [0x23fb25f5c0d8]
    
     *** caught illegal operation ***
     address 0x7ff5a2e169a5, cause 'illegal operand'
    
     Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphTransformer.", method, "(global.", xv, ")"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassigngraph(xv, x) .jsassign(xv, .jsp("GraphTransformer.", method, "(global.", xv, ")")) .jsassign(xv, .jsp("global.", xv, ".toString()")) r <- .jsget(xv)}, error = function(e) stop(e), finally = { .deleteJSVar(xv)})
     10: .graphTransformer(x, "dagToCpdag")
     11: dagitty::equivalenceClass(.dag$dag)
     12: eval(lhs, parent, parent)
     13: eval(lhs, parent, parent)
     14: dagitty::equivalenceClass(.dag$dag) %>% dagitty::edges(.) %>% dplyr::filter(e == "--") %>% dplyr::select(name = v, reversable = e, to = w) %>% dplyr::mutate_at(c("name", "to"), as.character) %>% dplyr::mutate(hash = hash(name, to)) %>% dplyr::select(hash, reversable)
     15: node_equivalent_class(tidy_dag)
     16: expect_function_produces_name(node_equivalent_class(tidy_dag), "reversable")
     17: eval(code, test_env)
     18: eval(code, test_env)
     19: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
     20: doTryCatch(return(expr), name, parentenv, handler)
     21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     22: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     23: doTryCatch(return(expr), name, parentenv, handler)
     24: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     25: tryCatchList(expr, classes, parentenv, handlers)
     26: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
     27: test_code(desc, code, env = parent.frame())
     28: test_that("node functions produce correct columns", { tidy_dag <- dagify(y ~ x + z, x ~ z) %>% tidy_dagitty() expect_function_produces_name(node_ancestors(tidy_dag, "y"), "ancestor") expect_function_produces_name(node_children(tidy_dag, "z"), "children") expect_function_produces_name(node_collider(tidy_dag), "colliders") expect_function_produces_name(node_dconnected(tidy_dag, "x", "y"), c("adjusted", "d_relationship")) expect_function_produces_name(node_descendants(tidy_dag, "z"), "descendant") expect_function_produces_name(node_drelationship(tidy_dag, "x", "y"), c("adjusted", "d_relationship")) expect_function_produces_name(node_dseparated(tidy_dag, "x", "y"), c("adjusted", "d_relationship")) expect_function_produces_name(node_equivalent_class(tidy_dag), "reversable") expect_function_produces_name(node_equivalent_dags(tidy_dag), "dag") expect_function_produces_name(node_exogenous(tidy_dag), "exogenous") expect_function_produces_name(node_instrumental(tidy_dag, exposure = "x", outcome = "y"), c("adjusted", "instrumental")) expect_function_produces_name(node_parents(tidy_dag, "z"), "parent") expect_function_produces_name(node_status(tidy_dag), "status")})
     29: eval(code, test_env)
     30: eval(code, test_env)
     31: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
     32: doTryCatch(return(expr), name, parentenv, handler)
     33: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     34: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     35: doTryCatch(return(expr), name, parentenv, handler)
     36: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     37: tryCatchList(expr, classes, parentenv, handlers)
     38: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
     39: test_code(NULL, exprs, env)
     40: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     41: force(code)
     42: doWithOneRestart(return(expr), restart)
     43: withOneRestart(expr, restarts[[1L]])
     44: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     45: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter, { reporter$start_file(basename(path)) lister$start_file(basename(path)) source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap) reporter$.end_context() reporter$end_file() })
     46: FUN(X[[i]], ...)
     47: lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     48: force(code)
     49: doWithOneRestart(return(expr), restart)
     50: withOneRestart(expr, restarts[[1L]])
     51: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     52: with_reporter(reporter = current_reporter, results <- lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap))
     53: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     54: test_dir(path = test_path, reporter = reporter, env = env, filter = filter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     55: test_package_dir(package = package, test_path = test_path, filter = filter, reporter = reporter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     56: test_check("ggdag")
     An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.2.1
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘bias-structures.Rmd’ using rmarkdown
    Loading required package: ggplot2
    
    Attaching package: 'ggdag'
    
    The following object is masked from 'package:ggplot2':
    
     expand_scale
    
    The following object is masked from 'package:stats':
    
     filter
    
    --- finished re-building ‘bias-structures.Rmd’
    
    sh: line 1: 17184 Illegal instruction (core dumped) '/data/gannet/ripley/R/R-clang/bin/R' --vanilla --no-echo > '/tmp/Rtmp7UtW1n/working_dir/RtmpfqXBfX/filebd9760b9fc2a' 2>&1 < '/tmp/Rtmp7UtW1n/working_dir/RtmpfqXBfX/filebd976ff16c'
    --- re-building ‘intro-to-dags.Rmd’ using rmarkdown
    Loading required package: ggplot2
    
    Attaching package: 'ggdag'
    
    The following object is masked from 'package:ggplot2':
    
     expand_scale
    
    The following object is masked from 'package:stats':
    
     filter
    
    
    
    #
    # Fatal error in , line 0
    # Failed to create ICU collator, are ICU data files missing?
    #
    #
    #
    #FailureMessage Object: 0x7ffe6ce59010
    ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7fbd21e5f45a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7fbd213e78b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7fbd21e5af57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7fbd21b3c413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7fbd21c614a2]
     [0x30192bb5c0d8]
    
     *** caught illegal operation ***
    address 0x7fbd212259a5, cause 'illegal operand'
    
    Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassign(xv, as.character(x)) .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()")) r <- structure(.jsget(xv), class = "dagitty")}, error = function(e) { stop(e)}, finally = { .deleteJSVar(xv)})
    10: dagitty::dagitty(dag_txt)
    11: dagify(y ~ ~x)
    12: eval(lhs, parent, parent)
    13: eval(lhs, parent, parent)
    14: dagify(y ~ ~x) %>% ggdag()
    15: eval(expr, envir, enclos)
    16: eval(expr, envir, enclos)
    17: withVisible(eval(expr, envir, enclos))
    18: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)
    19: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler))
    20: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    21: 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)
    22: evaluate::evaluate(...)
    23: 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))
    24: 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)))
    25: block_exec(params)
    26: call_block(x)
    27: process_group.block(group)
    28: process_group(group)
    29: 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"), ") ") })
    30: process_file(text, output)
    31: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    32: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
    33: vweave_rmarkdown(...)
    34: engine$weave(file, quiet = quiet, encoding = enc)
    35: doTryCatch(return(expr), name, parentenv, handler)
    36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    37: tryCatchList(expr, classes, parentenv, handlers)
    38: 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) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
    39: tools:::.buildOneVignette("intro-to-dags.Rmd", "/data/gannet/ripley/R/packages/tests-clang/ggdag.Rcheck/vign_test/ggdag", TRUE, FALSE, "intro-to-dags", "UTF-8", "/tmp/Rtmp7UtW1n/working_dir/RtmpfqXBfX/filebd977c9f0c14.rds")
    An irrecoverable exception occurred. R is aborting now ...
    sh: line 1: 19654 Illegal instruction (core dumped) '/data/gannet/ripley/R/R-clang/bin/R' --vanilla --no-echo > '/tmp/Rtmp7UtW1n/working_dir/RtmpfqXBfX/filebd975c1ed18e' 2>&1 < '/tmp/Rtmp7UtW1n/working_dir/RtmpfqXBfX/filebd973a54fd30'
    --- re-building ‘intro-to-ggdag.Rmd’ using rmarkdown
    Loading required package: ggplot2
    
    Attaching package: 'ggdag'
    
    The following object is masked from 'package:ggplot2':
    
     expand_scale
    
    The following object is masked from 'package:stats':
    
     filter
    
    
    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
    
    
    
    #
    # Fatal error in , line 0
    # Failed to create ICU collator, are ICU data files missing?
    #
    #
    #
    #FailureMessage Object: 0x7ffcffdd4a70
    ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7f8a24eac45a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7f8a244348b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7f8a24ea7f57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7f8a24b89413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7f8a24cae4a2]
     [0x352b388dc0d8]
    
     *** caught illegal operation ***
    address 0x7f8a242729a5, cause 'illegal operand'
    
    Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassign(xv, as.character(x)) .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()")) r <- structure(.jsget(xv), class = "dagitty")}, error = function(e) { stop(e)}, finally = { .deleteJSVar(xv)})
    10: dagitty::dagitty(dag_txt)
    11: dagify(y ~ x + z, x ~ ~z)
    12: eval(lhs, parent, parent)
    13: eval(lhs, parent, parent)
    14: dagify(y ~ x + z, x ~ ~z) %>% node_canonical() %>% ggplot(aes(x = x, y = y, xend = xend, yend = yend))
    15: eval(expr, envir, enclos)
    16: eval(expr, envir, enclos)
    17: withVisible(eval(expr, envir, enclos))
    18: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)
    19: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler))
    20: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    21: 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)
    22: evaluate::evaluate(...)
    23: 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))
    24: 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)))
    25: block_exec(params)
    26: call_block(x)
    27: process_group.block(group)
    28: process_group(group)
    29: 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"), ") ") })
    30: process_file(text, output)
    31: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    32: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
    33: vweave_rmarkdown(...)
    34: engine$weave(file, quiet = quiet, encoding = enc)
    35: doTryCatch(return(expr), name, parentenv, handler)
    36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    37: tryCatchList(expr, classes, parentenv, handlers)
    38: 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) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
    39: tools:::.buildOneVignette("intro-to-ggdag.Rmd", "/data/gannet/ripley/R/packages/tests-clang/ggdag.Rcheck/vign_test/ggdag", TRUE, FALSE, "intro-to-ggdag", "UTF-8", "/tmp/Rtmp7UtW1n/working_dir/RtmpfqXBfX/filebd9725b3e9e.rds")
    An irrecoverable exception occurred. R is aborting now ...
    SUMMARY: processing the following files failed:
     ‘intro-to-dags.Rmd’ ‘intro-to-ggdag.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.2.1
Check: examples
Result: ERROR
    Running examples in ‘ggdag-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: Covariate Adjustment Sets
    > ### Title: Covariate Adjustment Sets
    > ### Aliases: 'Covariate Adjustment Sets' dag_adjustment_sets
    > ### ggdag_adjustment_set
    >
    > ### ** Examples
    >
    > dag <- dagify(y ~ x + z2 + w2 + w1,
    + x ~ z1 + w1,
    + z1 ~ w1 + v,
    + z2 ~ w2 + v,
    + w1 ~~ w2,
    + exposure = "x",
    + outcome = "y")
    
    
    #
    # Fatal error in , line 0
    # Failed to create ICU collator, are ICU data files missing?
    #
    #
    #
    #FailureMessage Object: 0x7ffcc7c1fd40
    ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7f8af819d45a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7f8af77258b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7f8af8198f57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7f8af7e7a413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7f8af7f9f4a2]
     [0x3aaccd65c0d8]
    
     *** caught illegal operation ***
    address 0x7f8af75639a5, cause 'illegal operand'
    
    Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassign(xv, as.character(x)) .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()")) r <- structure(.jsget(xv), class = "dagitty")}, error = function(e) { stop(e)}, finally = { .deleteJSVar(xv)})
    10: dagitty::dagitty(dag_txt)
    11: dagify(y ~ x + z2 + w2 + w1, x ~ z1 + w1, z1 ~ w1 + v, z2 ~ w2 + v, w1 ~ ~w2, exposure = "x", outcome = "y")
    An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.2.1
Check: tests
Result: ERROR
     Running ‘spelling.R’
     Running ‘testthat.R’ [5s/21s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(ggdag)
     Loading required package: ggplot2
    
     Attaching package: 'ggdag'
    
     The following object is masked from 'package:ggplot2':
    
     expand_scale
    
     The following object is masked from 'package:stats':
    
     filter
    
     >
     > test_check("ggdag")
    
    
     #
     # Fatal error in , line 0
     # Failed to create ICU collator, are ICU data files missing?
     #
     #
     #
     #FailureMessage Object: 0x7ffd1429a8f0
     ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7f281b37f45a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7f281a9078b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7f281b37af57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7f281b05c413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7f281b1814a2]
     [0x1cbdd395c0d8]
    
     *** caught illegal operation ***
     address 0x7f281a7459a5, cause 'illegal operand'
    
     Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphTransformer.", method, "(global.", xv, ")"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassigngraph(xv, x) .jsassign(xv, .jsp("GraphTransformer.", method, "(global.", xv, ")")) .jsassign(xv, .jsp("global.", xv, ".toString()")) r <- .jsget(xv)}, error = function(e) stop(e), finally = { .deleteJSVar(xv)})
     10: .graphTransformer(x, "dagToCpdag")
     11: dagitty::equivalenceClass(.dag$dag)
     12: eval(lhs, parent, parent)
     13: eval(lhs, parent, parent)
     14: dagitty::equivalenceClass(.dag$dag) %>% dagitty::edges(.) %>% dplyr::filter(e == "--") %>% dplyr::select(name = v, reversable = e, to = w) %>% dplyr::mutate_at(c("name", "to"), as.character) %>% dplyr::mutate(hash = hash(name, to)) %>% dplyr::select(hash, reversable)
     15: node_equivalent_class(tidy_dag)
     16: expect_function_produces_name(node_equivalent_class(tidy_dag), "reversable")
     17: eval(code, test_env)
     18: eval(code, test_env)
     19: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
     20: doTryCatch(return(expr), name, parentenv, handler)
     21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     22: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     23: doTryCatch(return(expr), name, parentenv, handler)
     24: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     25: tryCatchList(expr, classes, parentenv, handlers)
     26: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
     27: test_code(desc, code, env = parent.frame())
     28: test_that("node functions produce correct columns", { tidy_dag <- dagify(y ~ x + z, x ~ z) %>% tidy_dagitty() expect_function_produces_name(node_ancestors(tidy_dag, "y"), "ancestor") expect_function_produces_name(node_children(tidy_dag, "z"), "children") expect_function_produces_name(node_collider(tidy_dag), "colliders") expect_function_produces_name(node_dconnected(tidy_dag, "x", "y"), c("adjusted", "d_relationship")) expect_function_produces_name(node_descendants(tidy_dag, "z"), "descendant") expect_function_produces_name(node_drelationship(tidy_dag, "x", "y"), c("adjusted", "d_relationship")) expect_function_produces_name(node_dseparated(tidy_dag, "x", "y"), c("adjusted", "d_relationship")) expect_function_produces_name(node_equivalent_class(tidy_dag), "reversable") expect_function_produces_name(node_equivalent_dags(tidy_dag), "dag") expect_function_produces_name(node_exogenous(tidy_dag), "exogenous") expect_function_produces_name(node_instrumental(tidy_dag, exposure = "x", outcome = "y"), c("adjusted", "instrumental")) expect_function_produces_name(node_parents(tidy_dag, "z"), "parent") expect_function_produces_name(node_status(tidy_dag), "status")})
     29: eval(code, test_env)
     30: eval(code, test_env)
     31: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
     32: doTryCatch(return(expr), name, parentenv, handler)
     33: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     34: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     35: doTryCatch(return(expr), name, parentenv, handler)
     36: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     37: tryCatchList(expr, classes, parentenv, handlers)
     38: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
     39: test_code(NULL, exprs, env)
     40: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     41: force(code)
     42: doWithOneRestart(return(expr), restart)
     43: withOneRestart(expr, restarts[[1L]])
     44: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     45: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter, { reporter$start_file(basename(path)) lister$start_file(basename(path)) source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap) reporter$.end_context() reporter$end_file() })
     46: FUN(X[[i]], ...)
     47: lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     48: force(code)
     49: doWithOneRestart(return(expr), restart)
     50: withOneRestart(expr, restarts[[1L]])
     51: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     52: with_reporter(reporter = current_reporter, results <- lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap))
     53: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     54: test_dir(path = test_path, reporter = reporter, env = env, filter = filter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     55: test_package_dir(package = package, test_path = test_path, filter = filter, reporter = reporter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     56: test_check("ggdag")
     An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.2.1
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘bias-structures.Rmd’ using rmarkdown
    Loading required package: ggplot2
    
    Attaching package: 'ggdag'
    
    The following object is masked from 'package:ggplot2':
    
     expand_scale
    
    The following object is masked from 'package:stats':
    
     filter
    
    --- finished re-building ‘bias-structures.Rmd’
    
    sh: line 1: 30227 Illegal instruction (core dumped) '/data/gannet/ripley/R/R-devel/bin/R' --vanilla --no-echo > '/tmp/RtmpLcTPrB/working_dir/RtmpVvMku4/file26b97089855' 2>&1 < '/tmp/RtmpLcTPrB/working_dir/RtmpVvMku4/file26b94f421db0'
    --- re-building ‘intro-to-dags.Rmd’ using rmarkdown
    Loading required package: ggplot2
    
    Attaching package: 'ggdag'
    
    The following object is masked from 'package:ggplot2':
    
     expand_scale
    
    The following object is masked from 'package:stats':
    
     filter
    
    
    
    #
    # Fatal error in , line 0
    # Failed to create ICU collator, are ICU data files missing?
    #
    #
    #
    #FailureMessage Object: 0x7ffed206ffc0
    ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7f793dc4045a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7f793d1c88b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7f793dc3bf57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7f793d91d413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7f793da424a2]
     [0xfdc4705c0d8]
    
     *** caught illegal operation ***
    address 0x7f793d0069a5, cause 'illegal operand'
    
    Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassign(xv, as.character(x)) .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()")) r <- structure(.jsget(xv), class = "dagitty")}, error = function(e) { stop(e)}, finally = { .deleteJSVar(xv)})
    10: dagitty::dagitty(dag_txt)
    11: dagify(y ~ ~x)
    12: eval(lhs, parent, parent)
    13: eval(lhs, parent, parent)
    14: dagify(y ~ ~x) %>% ggdag()
    15: eval(expr, envir, enclos)
    16: eval(expr, envir, enclos)
    17: withVisible(eval(expr, envir, enclos))
    18: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)
    19: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler))
    20: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    21: 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)
    22: evaluate::evaluate(...)
    23: 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))
    24: 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)))
    25: block_exec(params)
    26: call_block(x)
    27: process_group.block(group)
    28: process_group(group)
    29: 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"), ") ") })
    30: process_file(text, output)
    31: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    32: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
    33: vweave_rmarkdown(...)
    34: engine$weave(file, quiet = quiet, encoding = enc)
    35: doTryCatch(return(expr), name, parentenv, handler)
    36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    37: tryCatchList(expr, classes, parentenv, handlers)
    38: 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) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
    39: tools:::.buildOneVignette("intro-to-dags.Rmd", "/data/gannet/ripley/R/packages/tests-devel/ggdag.Rcheck/vign_test/ggdag", TRUE, FALSE, "intro-to-dags", "UTF-8", "/tmp/RtmpLcTPrB/working_dir/RtmpVvMku4/file26b924269499.rds")
    An irrecoverable exception occurred. R is aborting now ...
    sh: line 1: 34868 Illegal instruction (core dumped) '/data/gannet/ripley/R/R-devel/bin/R' --vanilla --no-echo > '/tmp/RtmpLcTPrB/working_dir/RtmpVvMku4/file26b95c13c34a' 2>&1 < '/tmp/RtmpLcTPrB/working_dir/RtmpVvMku4/file26b93772d3d7'
    --- re-building ‘intro-to-ggdag.Rmd’ using rmarkdown
    Loading required package: ggplot2
    
    Attaching package: 'ggdag'
    
    The following object is masked from 'package:ggplot2':
    
     expand_scale
    
    The following object is masked from 'package:stats':
    
     filter
    
    
    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
    
    
    
    #
    # Fatal error in , line 0
    # Failed to create ICU collator, are ICU data files missing?
    #
    #
    #
    #FailureMessage Object: 0x7ffea21fd130
    ==== C stack trace ===============================
    
     /lib64/libnode.so.64(v8::base::debug::StackTrace::StackTrace()+0x1a) [0x7faac257c45a]
     /lib64/libnode.so.64(+0x92e8b1) [0x7faac1b048b1]
     /lib64/libnode.so.64(V8_Fatal(char const*, int, char const*, ...)+0x177) [0x7faac2577f57]
     /lib64/libnode.so.64(v8::internal::Collator::InitializeCollator(v8::internal::Isolate*, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::String>, v8::internal::Handle<v8::internal::JSObject>, v8::internal::Handle<v8::internal::JSObject>)+0x473) [0x7faac2259413]
     /lib64/libnode.so.64(v8::internal::Runtime_CreateCollator(int, v8::internal::Object**, v8::internal::Isolate*)+0x192) [0x7faac237e4a2]
     [0x2b377705c0d8]
    
     *** caught illegal operation ***
    address 0x7faac19429a5, cause 'illegal operand'
    
    Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(paste("global.", name, "=", value))
     5: .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()"))
     6: doTryCatch(return(expr), name, parentenv, handler)
     7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatch({ .jsassign(xv, as.character(x)) .jsassign(xv, .jsp("GraphParser.parseGuess(global.", xv, ").toString()")) r <- structure(.jsget(xv), class = "dagitty")}, error = function(e) { stop(e)}, finally = { .deleteJSVar(xv)})
    10: dagitty::dagitty(dag_txt)
    11: dagify(y ~ x + z, x ~ ~z)
    12: eval(lhs, parent, parent)
    13: eval(lhs, parent, parent)
    14: dagify(y ~ x + z, x ~ ~z) %>% node_canonical() %>% ggplot(aes(x = x, y = y, xend = xend, yend = yend))
    15: eval(expr, envir, enclos)
    16: eval(expr, envir, enclos)
    17: withVisible(eval(expr, envir, enclos))
    18: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)
    19: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler))
    20: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    21: 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)
    22: evaluate::evaluate(...)
    23: 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))
    24: 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)))
    25: block_exec(params)
    26: call_block(x)
    27: process_group.block(group)
    28: process_group(group)
    29: 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"), ") ") })
    30: process_file(text, output)
    31: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    32: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
    33: vweave_rmarkdown(...)
    34: engine$weave(file, quiet = quiet, encoding = enc)
    35: doTryCatch(return(expr), name, parentenv, handler)
    36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    37: tryCatchList(expr, classes, parentenv, handlers)
    38: 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) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
    39: tools:::.buildOneVignette("intro-to-ggdag.Rmd", "/data/gannet/ripley/R/packages/tests-devel/ggdag.Rcheck/vign_test/ggdag", TRUE, FALSE, "intro-to-ggdag", "UTF-8", "/tmp/RtmpLcTPrB/working_dir/RtmpVvMku4/file26b92f91ad7f.rds")
    An irrecoverable exception occurred. R is aborting now ...
    SUMMARY: processing the following files failed:
     ‘intro-to-dags.Rmd’ ‘intro-to-ggdag.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc