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

> ### Name: tbl_sum_samdata
> ### Title: Summarize information from sample data in a table
> ### Aliases: tbl_sum_samdata
> 
> ### ** Examples
> 
> if (requireNamespace("gtsummary")) {
+   tbl_sum_samdata(data_fungi) %>%
+     gtsummary::as_kable()
+ 
+   summary_samdata <- tbl_sum_samdata(data_fungi,
+     include = c("Time", "Height"),
+     type = list(Time ~ "continuous2", Height ~ "categorical"),
+     statistic = list(Time ~ c("{median} ({p25}, {p75})", "{min}, {max}"))
+   )
+ }
Loading required namespace: gtsummary
Error in `dplyr::mutate()`:
ℹ In argument: `df_stats = list(...)`.
Caused by error in `dplyr::mutate()`:
ℹ In argument: `stat = map(...)`.
Caused by error in `glue_data()`:
! is.environment(.envir) is not TRUE
Backtrace:
     ▆
  1. ├─tbl_sum_samdata(data_fungi) %>% gtsummary::as_kable()
  2. ├─gtsummary::as_kable(.)
  3. │ └─gtsummary:::check_class(x, "gtsummary")
  4. ├─MiscMetabar::tbl_sum_samdata(data_fungi)
  5. │ └─tbl %>% gtsummary::tbl_summary(...)
  6. ├─gtsummary::tbl_summary(., ...)
  7. │ ├─base::structure(...)
  8. │ ├─base::append(...)
  9. │ └─gtsummary::brdg_summary(...)
 10. │   ├─dplyr::left_join(...)
 11. │   ├─dplyr:::left_join.data.frame(...)
 12. │   │ └─dplyr::auto_copy(x, y, copy = copy)
 13. │   │   ├─dplyr::same_src(x, y)
 14. │   │   └─dplyr:::same_src.data.frame(x, y)
 15. │   │     └─base::is.data.frame(y)
 16. │   ├─dplyr::bind_rows(...)
 17. │   │ └─rlang::list2(...)
 18. │   └─gtsummary::pier_summary_categorical(...)
 19. │     ├─... %>% ...
 20. │     ├─dplyr::bind_rows(...)
 21. │     │ └─rlang::list2(...)
 22. │     ├─dplyr::group_map(...)
 23. │     └─dplyr:::group_map.data.frame(...)
 24. │       └─dplyr:::map2(chunks, group_keys, .f, ...)
 25. │         └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
 26. │           └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
 27. │             ├─dplyr::mutate(...)
 28. │             └─dplyr:::mutate.data.frame(...)
 29. │               └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
 30. │                 ├─base::withCallingHandlers(...)
 31. │                 └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
 32. │                   └─mask$eval_all_mutate(quo)
 33. │                     └─dplyr (local) eval()
 34. ├─dplyr::left_join(...)
 35. ├─dplyr:::left_join.data.frame(...)
 36. │ └─dplyr::auto_copy(x, y, copy = copy)
 37. │   ├─dplyr::same_src(x, y)
 38. │   └─dplyr:::same_src.data.frame(x, y)
 39. │     └─base::is.data.frame(y)
 40. ├─dplyr::bind_rows(...)
 41. │ └─rlang::list2(...)
 42. ├─dplyr::group_map(...)
 43. ├─dplyr:::group_map.data.frame(...)
 44. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
 45. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
 46. │     └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
 47. │       ├─dplyr::mutate(...)
 48. │       └─dplyr:::mutate.data.frame(...)
 49. │         └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
 50. │           ├─base::withCallingHandlers(...)
 51. │           └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
 52. │             └─mask$eval_all_mutate(quo)
 53. │               └─dplyr (local) eval()
 54. ├─gtsummary:::map(...)
 55. │ └─base::lapply(.x, .f, ...)
 56. │   └─gtsummary (local) FUN(X[[i]], ...)
 57. │     └─glue::glue(...)
 58. │       └─glue::glue_data(...)
 59. │         └─base::stopifnot(is.environment(.envir))
 60. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
 61. └─dplyr (local) `<fn>`(`<smplErrr>`)
 62.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted