Package: bSi
Check: examples
New result: ERROR
  Running examples in ‘bSi-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: tdgraph
  > ### Title: Create Time-Dissolution Graphs
  > ### Aliases: tdgraph
  > 
  > ### ** Examples
  > 
  > 
  > 
  > data_file <- system.file("extdata", "mydata.csv", package = "bSi")
  > output_plot_file <- file.path(tempdir(), "plot1.tiff")
  > output_csv_file <- file.path(tempdir(), "output.csv")
  > param <- NULL
  > value <- NULL
  > eq.label <- NULL
  > rr.label <- NULL
  > . <- NULL
  > tdgraph(data_file, output_plot_file, output_csv_file,
  +         label_y1 = 0.055, label_y2 = 0.032, param, value, eq.label, rr.label, .)
  `geom_smooth()` using formula = 'y ~ x'
  Error in `ggpubr::stat_regline_equation()`:
  ! Problem while mapping stat to aesthetics.
  ℹ Error occurred in the 4th layer.
  Caused by error in `after_stat()`:
  ! could not find function "after_stat"
  Backtrace:
       ▆
    1. ├─bSi::tdgraph(...)
    2. │ └─ggplot2::ggsave(...)
    3. │   ├─grid::grid.draw(plot)
    4. │   └─ggplot2:::grid.draw.ggplot(plot)
    5. │     ├─base::print(x)
    6. │     └─ggplot2:::print.ggplot(x)
    7. │       ├─ggplot2::ggplot_build(x)
    8. │       └─ggplot2:::ggplot_build.ggplot(x)
    9. │         └─ggplot2:::by_layer(...)
   10. │           ├─rlang::try_fetch(...)
   11. │           │ ├─base::tryCatch(...)
   12. │           │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13. │           │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14. │           │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15. │           │ └─base::withCallingHandlers(...)
   16. │           └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   17. │             └─l$map_statistic(d, plot)
   18. │               └─ggplot2 (local) map_statistic(..., self = self)
   19. │                 └─base::lapply(new, eval_tidy, mask, env)
   20. │                   └─rlang (local) FUN(X[[i]], ...)
   21. └─base::.handleSimpleError(...)
   22.   └─rlang (local) h(simpleError(msg, call))
   23.     └─handlers[[1L]](cnd)
   24.       └─cli::cli_abort(...)
   25.         └─rlang::abort(...)
  Execution halted

Package: PopComm
Check: examples
New result: ERROR
  Running examples in ‘PopComm-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: dotplot_lr_continuous_group
  > ### Title: Dotplot of Ligand-Receptor Interaction Scores Against Continuous
  > ###   Group Variable
  > ### Aliases: dotplot_lr_continuous_group
  > 
  > ### ** Examples
  > 
  > # Dotplot of LR Score Against Continuous Group Variable
  > data(lr_scores_eg)
  > data(metadata_eg)
  > res <- dotplot_lr_continuous_group(
  +   lr_scores_eg, metadata_eg,
  +   ligand = "TAC4", receptor = "TACR1",
  +   sender = "Perivascular", receiver = "Cardiac",
  +   group_by = "IFNscore"
  + )
  > 
  > print(res$plot)
  `geom_smooth()` using formula = 'y ~ x'
  Error in `ggpubr::stat_regline_equation()`:
  ! Problem while mapping stat to aesthetics.
  ℹ Error occurred in the 4th layer.
  Caused by error in `after_stat()`:
  ! could not find function "after_stat"
  Backtrace:
       ▆
    1. ├─base::print(res$plot)
    2. ├─ggplot2:::print.ggplot(res$plot)
    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$map_statistic(d, plot)
   14. │         └─ggplot2 (local) map_statistic(..., self = self)
   15. │           └─base::lapply(new, eval_tidy, mask, env)
   16. │             └─rlang (local) FUN(X[[i]], ...)
   17. ├─base::paste(after_stat(rr.label), after_stat(eq.label), sep = "~~")
   18. └─base::.handleSimpleError(...)
   19.   └─rlang (local) h(simpleError(msg, call))
   20.     └─handlers[[1L]](cnd)
   21.       └─cli::cli_abort(...)
   22.         └─rlang::abort(...)
  Execution halted