Running examples in 'ggdag-Ex.R' failed
The error most likely occurred in:

> ### Name: Adjust for variables
> ### Title: Adjust for variables and activate any biasing paths that result
> ### Aliases: 'Adjust for variables' control_for adjust_for ggdag_adjust
> 
> ### ** Examples
> 
> dag <- dagify(m ~ a + b, x ~ a, y ~ b)
> 
> control_for(dag, var = "m")
# A DAG with 5 nodes and 4 edges
#
# Paths opened by conditioning on a collider: a <-> b, a <-> b, a <-> b, a <-> b
#
# A tibble: 11 × 10
   name       x     y direction to     xend   yend circular collider_l…¹ adjus…²
   <chr>  <dbl> <dbl> <fct>     <chr> <dbl>  <dbl> <lgl>    <lgl>        <fct>  
 1 a      0.313 0.954 ->        m     -1.13  1.07  FALSE    FALSE        unadju…
 2 a      0.313 0.954 ->        x      1.58  0.850 FALSE    FALSE        unadju…
 3 b     -2.57  1.19  ->        m     -1.13  1.07  FALSE    FALSE        unadju…
 4 b     -2.57  1.19  ->        y     -3.83  1.29  FALSE    FALSE        unadju…
 5 m     -1.13  1.07  <NA>      <NA>  NA    NA     FALSE    FALSE        adjust…
 6 x      1.58  0.850 <NA>      <NA>  NA    NA     FALSE    FALSE        unadju…
 7 y     -3.83  1.29  <NA>      <NA>  NA    NA     FALSE    FALSE        unadju…
 8 a      0.313 0.954 <->       b     -2.57  1.19  NA       TRUE         unadju…
 9 a      0.313 0.954 <->       b     -2.57  1.19  NA       TRUE         unadju…
10 a      0.313 0.954 <->       b     -2.57  1.19  NA       TRUE         unadju…
11 a      0.313 0.954 <->       b     -2.57  1.19  NA       TRUE         unadju…
# … with abbreviated variable names ¹​collider_line, ²​adjusted
> ggdag_adjust(dag, var = "m")
Error in `check_required_aesthetics()`:
! stat_edge_arc requires the following missing aesthetics: x, y, xend, yend and circular
Backtrace:
     ▆
  1. ├─base (local) `<fn>`(x)
  2. └─ggplot2:::print.ggplot(x)
  3.   ├─ggplot2::ggplot_build(x)
  4.   └─ggplot2:::ggplot_build.ggplot(x)
  5.     └─ggplot2 (local) by_layer(function(l, d) l$compute_statistic(d, layout))
  6.       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
  7.         └─l$compute_statistic(d, layout)
  8.           └─ggplot2 (local) f(..., self = self)
  9.             └─self$stat$compute_layer(data, self$computed_stat_params, layout)
 10.               └─ggplot2 (local) f(..., self = self)
 11.                 └─ggplot2:::check_required_aesthetics(self$required_aes, c(names(data), names(params)), snake_class(self))
 12.                   └─rlang::abort(...)
Execution halted