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

> ### Name: coord_flip
> ### Title: Cartesian coordinates with x and y flipped
> ### Aliases: coord_flip
> 
> ### ** Examples
> 
> # Very useful for creating boxplots, and other interval
> # geoms in the horizontal instead of vertical position.
> 
> ggplot(diamonds, aes(cut, price)) +
+   geom_boxplot() +
+   coord_flip()
> 
> h <- ggplot(diamonds, aes(carat)) +
+   geom_histogram()
> h
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
> h + coord_flip()
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
> h + coord_flip() + scale_x_reverse()
Error in `geom_histogram()`:
! Problem while computing stat.
ℹ Error occurred in the 1st layer.
Caused by error in `getppid()`:
! Can't query parent pid.
Backtrace:
     ▆
  1. ├─base (local) `<fn>`(x)
  2. ├─ggplot2:::print.ggplot(x)
  3. │ ├─ggplot2::ggplot_build(x)
  4. │ └─ggplot2:::ggplot_build.ggplot(x)
  5. │   └─ggplot2:::by_layer(...)
  6. │     ├─rlang::try_fetch(...)
  7. │     │ ├─base::tryCatch(...)
  8. │     │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  9. │     │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 10. │     │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 11. │     │ └─base::withCallingHandlers(...)
 12. │     └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 13. │       └─l$compute_statistic(d, layout)
 14. │         └─ggplot2 (local) compute_statistic(..., self = self)
 15. │           └─self$stat$setup_params(data, self$stat_params)
 16. │             └─ggplot2 (local) setup_params(..., self = self)
 17. │               └─cli::cli_inform("{.fn {snake_class(self)}} using {.code bins = 30}. Pick better value with {.arg binwidth}.")
 18. │                 └─rlang::inform(format_message(message, .envir = .envir), ...)
 19. │                   ├─base::withRestarts(...)
 20. │                   │ └─base (local) withOneRestart(expr, restarts[[1L]])
 21. │                   │   └─base (local) doWithOneRestart(return(expr), restart)
 22. │                   ├─base::cat(msg, file = .file %||% default_message_file())
 23. │                   ├─.file %||% default_message_file()
 24. │                   └─rlang:::default_message_file()
 25. │                     └─rlang:::is_rstudio()
 26. │                       ├─Sys.getenv("RSTUDIO_SESSION_PID") %in% ...
 27. │                       └─rlang:::getppid()
 28. └─rlang::abort(message = message)
Execution halted