Running examples in ‘abmR-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: energyVIZ
> ### Title: Creates a plot/table of energySIM() results
> ### Aliases: energyVIZ
> 
> ### ** Examples
> 
> 
> # 1. Define Population and Run energySIM()
> 
> pop1 <- as.species(x=-98.7, y=34.7)
> 
> EX1=energySIM(replicates=2,days=7,env_rast=ex_raster, search_radius=200,
+ sigma=.1, dest_x=-108.6, dest_y=26.2, mot_x=.9, mot_y=.9,
+ modeled_species=pop1,
+ optimum_lo=.8,optimum_hi=.9,init_energy=100,
+ direction="R",write_results=FALSE,single_rast=TRUE,mortality = TRUE)
Direction=R specified--Raster will be ignored
> 
> # 2. Run energyVIZ() on your result
> 
> energyVIZ(EX1,title="Visualizing EnergySIM results",type="plot", aspect_ratio=5/3,
+ label=TRUE)
Warning in geom_map(data = world, map = world, aes_string("long", "lat",  :
  Ignoring unknown aesthetics: x and y
> 
> energyVIZ(EX1,type="summary_table")
Error in `dplyr::mutate()`:
ℹ In argument: `stat = as.character(...)`.
Caused by error in `glue_data()`:
! is.environment(.envir) is not TRUE
Backtrace:
     ▆
  1. ├─abmR::energyVIZ(EX1, type = "summary_table")
  2. │ └─gtsummary::tbl_summary(data$results[, -c(1, 2, 9)])
  3. │   ├─base::structure(...)
  4. │   ├─base::append(...)
  5. │   └─gtsummary::brdg_summary(...)
  6. │     ├─dplyr::left_join(...)
  7. │     ├─dplyr:::left_join.data.frame(...)
  8. │     │ └─dplyr::auto_copy(x, y, copy = copy)
  9. │     │   ├─dplyr::same_src(x, y)
 10. │     │   └─dplyr:::same_src.data.frame(x, y)
 11. │     │     └─base::is.data.frame(y)
 12. │     ├─dplyr::bind_rows(...)
 13. │     │ └─rlang::list2(...)
 14. │     └─gtsummary::pier_summary_continuous(...)
 15. │       ├─... %>% ...
 16. │       ├─dplyr::bind_rows(...)
 17. │       │ └─rlang::list2(...)
 18. │       ├─dplyr::group_map(...)
 19. │       └─dplyr:::group_map.data.frame(...)
 20. │         └─dplyr:::map2(chunks, group_keys, .f, ...)
 21. │           └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
 22. │             └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
 23. │               ├─dplyr::mutate(...)
 24. │               └─dplyr:::mutate.data.frame(...)
 25. │                 └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
 26. │                   ├─base::withCallingHandlers(...)
 27. │                   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
 28. │                     └─mask$eval_all_mutate(quo)
 29. │                       └─dplyr (local) eval()
 30. ├─dplyr::left_join(...)
 31. ├─dplyr:::left_join.data.frame(...)
 32. │ └─dplyr::auto_copy(x, y, copy = copy)
 33. │   ├─dplyr::same_src(x, y)
 34. │   └─dplyr:::same_src.data.frame(x, y)
 35. │     └─base::is.data.frame(y)
 36. ├─glue::glue(...)
 37. │ └─glue::glue_data(...)
 38. │   └─base::stopifnot(is.environment(.envir))
 39. │     └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
 40. └─dplyr (local) `<fn>`(`<smplErrr>`)
 41.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted