Running ‘spelling.R’
  Running ‘testthat.R’
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:stats':
  
      filter
  
  > 
  > test_check("ggdag")
  ── 1. Error: daggity and tidy dags become tidy tbls  ───────────────────────────
  <string conversion failed>
  Backtrace:
   1. ggdag::butterfly_bias()
   2. ggdag::dagify(...)
   3. dagitty::`coordinates<-`(`*tmp*`, value = coords2list(coords))
   4. base::tryCatch(...)
   5. base:::tryCatchList(expr, classes, parentenv, handlers)
   6. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   7. value[[3L]](cond)
  
  ── 2. Error: dags cannonicalize correctly (@test-canonical.R#6)  ───────────────
  <string conversion failed>
  Backtrace:
    1. ggdag::ggdag_canonical(dag)
    2. ggdag:::if_not_tidy_daggity(.tdy_dag, ...)
    9. ggdag::node_canonical(.)
    4. dagitty::canonicalize(.dag$dag)$g
   12. ggdag::tidy_dagitty(., ...)
   19. dagitty::graphType(.dagitty)
   20. base::tryCatch(...)
   21. base:::tryCatchList(expr, classes, parentenv, handlers)
   22. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   23. value[[3L]](cond)
  
  ── 3. Error: colliders correctly identified (@test-colliders.R#6)  ─────────────
  <string conversion failed>
  Backtrace:
    1. ggdag::ggdag_collider(dag)
    2. ggdag:::if_not_tidy_daggity(.tdy_dag, ...)
    9. ggdag::node_collider(.)
   10. purrr::map_lgl(vars, ~is_collider(.tdy_dag, .x))
   11. ggdag:::.f(.x[[i]], ...)
   12. ggdag::is_collider(.tdy_dag, .x)
   13. ggdag::is_downstream_collider(.dag, .var)
   14. dagitty::ancestors(.dag, .var)
   15. dagitty:::.kins(x, v, "ancestors")
   21. dagitty:::.jsget(paste0("_.pluck(global.", vv, ",'id')"))
   23. ct$eval(c("JSON.stringify(global.", name, ")"))
   24. V8:::evaluate_js(src, serialize = serialize)
   26. V8:::context_eval(join(src), private$context, serialize)
  
  ── 4. Error: dplyr methods work on tidy dags: `summarize()`  ───────────────────
  <string conversion failed>
  Backtrace:
    1. ggdag::tidy_dagitty(m_bias())
    4. ggdag::m_bias()
    5. ggdag::dagify(...)
    6. dagitty::`coordinates<-`(`*tmp*`, value = coords2list(coords))
    7. base::tryCatch(...)
    8. base:::tryCatchList(expr, classes, parentenv, handlers)
    9. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   10. value[[3L]](cond)
  
  ── 5. Error: d relationships correctly identified (@test-drelationship.R#8)  ───
  <string conversion failed>
  Backtrace:
    1. ggdag::ggdag_drelationship(dag, "x", "y", controlling_for = "m")
    2. ggdag:::if_not_tidy_daggity(.tdy_dag)
    9. ggdag::node_drelationship(...)
   10. ggdag::control_for(.tdy_dag, controlling_for)
   11. ggdag::activate_collider_paths(.tdy_dag, var)
   12. purrr::map_lgl(vars, ~is_collider(.tdy_dag, .x))
   13. ggdag:::.f(.x[[i]], ...)
   14. ggdag::is_collider(.tdy_dag, .x)
   15. dagitty::parents(.dag, .var)
   16. dagitty:::.kins(x, v, "parents")
   22. dagitty:::.jsget(paste0("_.pluck(global.", vv, ",'id')"))
   24. ct$eval(c("JSON.stringify(global.", name, ")"))
   25. V8:::evaluate_js(src, serialize = serialize)
   27. V8:::context_eval(join(src), private$context, serialize)
  
  ── 6. Error: dags ............ (@test-equivalence.R#6)  ────────────────────────
  <string conversion failed>
  Backtrace:
    1. ggdag::ggdag_equivalent_dags(dag)
    2. ggdag:::if_not_tidy_daggity(.tdy_dag)
   10. ggdag::node_equivalent_dags(., ...)
   11. dagitty::`coordinates<-`(`*tmp*`, value = layout_coords)
   12. base::tryCatch(...)
   13. base:::tryCatchList(expr, classes, parentenv, handlers)
   14. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15. value[[3L]](cond)
  
  ── 7. Error: different edge types work (@test-geom_dag.R#36)  ──────────────────
  <string conversion failed>
  Backtrace:
    1. ggdag::dagify(...)
    9. ggplot2::ggplot(., aes(x = x, y = y, xend = xend, yend = yend))
   13. ggdag:::fortify.dagitty(data)
   11. ggdag::tidy_dagitty(.)
   22. dagitty::graphType(.dagitty)
   23. base::tryCatch(...)
   24. base:::tryCatchList(expr, classes, parentenv, handlers)
   25. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   26. value[[3L]](cond)
  
  ── 8. Error: DAG paths are identified and drawn correctly (@test-paths.R#37)  ──
  <string conversion failed>
  Backtrace:
    9. ggdag::ggdag_paths(., from = "x", to = "y")
    2. ggdag:::if_not_tidy_daggity(.tdy_dag, ...)
    9. ggdag::dag_paths(...)
   21. dagitty::paths(.tdy_dag$dag, from, to, Z = adjust_for, directed = directed)
   22. dagitty:::.supportsTypes(x, c("dag", "mag", "pdag"))
   23. dagitty::graphType(x)
   24. base::tryCatch(...)
   25. base:::tryCatchList(expr, classes, parentenv, handlers)
   26. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   27. value[[3L]](cond)
  
  ── 9. Error: quick plots render correctly (@test-quick_plots.R#5)  ─────────────
  <string conversion failed>
  Backtrace:
    1. vdiffr::expect_doppelganger("ggdag_m_bias() is an M", ggdag_m_bias())
    4. ggdag::ggdag_m_bias()
   11. ggdag::m_bias(x, y, a, b, m, x_y_associated)
   12. ggdag::dagify(...)
   13. dagitty::dagitty(dag_txt)
   14. base::tryCatch(...)
   15. base:::tryCatchList(expr, classes, parentenv, handlers)
   16. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   17. value[[3L]](cond)
  
  ── 10. Error: dags cannonicalize correctly (@test-relations.R#5)  ──────────────
  <string conversion failed>
  Backtrace:
    1. vdiffr::expect_doppelganger(...)
    4. ggdag::ggdag_children(dag, "w1")
    3. ggdag:::if_not_tidy_daggity(.tdy_dag, ...)
   10. ggdag::node_children(., .var)
   13. dagitty::children(.tdy_dag$dag, .var)
   14. dagitty:::.kins(x, v, "children")
   20. dagitty:::.jsget(paste0("_.pluck(global.", vv, ",'id')"))
   22. ct$eval(c("JSON.stringify(global.", name, ")"))
   23. V8:::evaluate_js(src, serialize = serialize)
   25. V8:::context_eval(join(src), private$context, serialize)
  
  ── 11. Error: node functions produce correct columns (@test-tidy_dag.R#28)  ────
  <string conversion failed>
  Backtrace:
    1. ggdag:::expect_function_produces_name(...)
    2. ggdag::node_collider(tidy_dag)
    3. purrr::map_lgl(vars, ~is_collider(.tdy_dag, .x))
    4. ggdag:::.f(.x[[i]], ...)
    5. ggdag::is_collider(.tdy_dag, .x)
    6. ggdag::is_downstream_collider(.dag, .var)
    7. purrr::map_lgl(var_ancestors, ~is_collider(.dag, .x))
    8. ggdag:::.f(.x[[i]], ...)
    9. ggdag::is_collider(.dag, .x)
   10. ggdag::is_downstream_collider(.dag, .var)
   11. purrr::map_lgl(var_ancestors, ~is_collider(.dag, .x))
   12. ggdag:::.f(.x[[i]], ...)
   13. ggdag::is_collider(.dag, .x)
   14. ggdag::is_downstream_collider(.dag, .var)
   15. dagitty::ancestors(.dag, .var)
   16. dagitty:::.kins(x, v, "ancestors")
   22. dagitty:::.jsget(paste0("_.pluck(global.", vv, ",'id')"))
   24. ct$eval(c("JSON.stringify(global.", name, ")"))
   25. V8:::evaluate_js(src, serialize = serialize)
   27. V8:::context_eval(join(src), private$context, serialize)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 40 | SKIPPED: 12 | WARNINGS: 0 | FAILED: 11 ]
  1. Error: daggity and tidy dags become tidy tbls 
  2. Error: dags cannonicalize correctly (@test-canonical.R#6) 
  3. Error: colliders correctly identified (@test-colliders.R#6) 
  4. Error: dplyr methods work on tidy dags: `summarize()` 
  5. Error: d relationships correctly identified (@test-drelationship.R#8) 
  6. Error: dags ............ (@test-equivalence.R#6) 
  7. Error: different edge types work (@test-geom_dag.R#36) 
  8. Error: DAG paths are identified and drawn correctly (@test-paths.R#37) 
  9. Error: quick plots render correctly (@test-quick_plots.R#5) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted