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

> ### Name: build_plot
> ### Title: Incrementally build and save layers of a ggplot object into
> ###   numbered files
> ### Aliases: build_plot
> 
> ### ** Examples
> 
> X <- rnorm(20)
> Y <- X + rnorm(20)
> 
> set.seed(1)
> pd <- data.frame(X, Y)
> p <- ggplot(pd, aes(X, Y)) +
+   geom_smooth() +
+   geom_point()
> 
> # Plot smooth, and then point
> build_plot(p, build_order = list(1, 2))
Error in `map()`:
ℹ In index: 1.
Caused by error in `geom_smooth()`:
! Problem while computing stat.
ℹ Error occurred in the 1st layer.
Caused by error in `getppid()`:
! Can't query parent pid.
Backtrace:
     ▆
  1. ├─ggbuildr::build_plot(p, build_order = list(1, 2))
  2. │ └─purrr::walk(...)
  3. │   └─purrr::map(.x, .f, ..., .progress = .progress)
  4. │     └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
  5. │       ├─purrr:::with_indexed_errors(...)
  6. │       │ └─base::withCallingHandlers(...)
  7. │       ├─purrr:::call_with_cleanup(...)
  8. │       └─ggbuildr (local) .f(.x[[i]], ...)
  9. │         └─ggbuildr:::.write_plot(canvas, buildfile, ...)
 10. │           ├─base::print(p)
 11. │           └─ggplot2:::print.ggplot(p)
 12. │             ├─ggplot2::ggplot_build(x)
 13. │             └─ggplot2:::ggplot_build.ggplot(x)
 14. │               └─ggplot2:::by_layer(...)
 15. │                 ├─rlang::try_fetch(...)
 16. │                 │ ├─base::tryCatch(...)
 17. │                 │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18. │                 │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19. │                 │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20. │                 │ └─base::withCallingHandlers(...)
 21. │                 └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22. │                   └─l$compute_statistic(d, layout)
 23. │                     └─ggplot2 (local) compute_statistic(..., self = self)
 24. │                       └─self$stat$setup_params(data, self$stat_params)
 25. │                         └─ggplot2 (local) setup_params(...)
 26. │                           └─cli::cli_inform("{.fn geom_smooth} using {msg}")
 27. │                             └─rlang::inform(format_message(message, .envir = .envir), ...)
 28. │                               ├─base::withRestarts(...)
 29. │                               │ └─base (local) withOneRestart(expr, restarts[[1L]])
 30. │                               │   └─base (local) doWithOneRestart(return(expr), restart)
 31. │                               ├─base::cat(msg, file = .file %||% default_message_file())
 32. │                               ├─.file %||% default_message_file()
 33. │                               └─rlang:::default_message_file()
 34. │                                 └─rlang:::is_rstudio()
 35. │                                   ├─Sys.getenv("RSTUDIO_SESSION_PID") %in% ...
 36. │                                   └─rlang:::getppid()
 37. └─rlang::abort(message = message)
Execution halted