Package check result: OK

Changes to worse in reverse depends:

Package: ggfacto
Check: examples
New result: ERROR
  Running examples in ‘ggfacto-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: MCA2
  > ### Title: Multiple Correspondence Analysis
  > ### Aliases: MCA2
  > 
  > ### ** Examples
  > 
  >  data(tea, package = "FactoMineR")
  > res.mca <- MCA2(tea, active_vars = 1:18)
  > 
  > res.mca %>%
  +   ggmca(tea, sup_vars = c("SPC"), ylim = c(NA, 1.2), text_repel = TRUE) %>%
  +   ggi() #to make the graph interactive
  Error in `dplyr::mutate()`:
  ℹ In argument: `n = vctrs::field(.data$Total, "n")`.
  Caused by error in `.data$Total`:
  ! Column `Total` not found in `.data`.
  Backtrace:
       ▆
    1. ├─... %>% ggi()
    2. ├─ggfacto::ggi(.)
    3. │ └─"css_hover" %in% names(plot)
    4. ├─ggfacto::ggmca(...)
    5. │ └─ggfacto::ggmca_data(...)
    6. │   └─ggfacto:::interactive_tooltips(...)
    7. │     └─... %>% ...
    8. ├─dplyr::mutate(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::select(...)
   11. ├─dplyr::select(., -.data$n)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::rename(., wcount = "Total")
   15. ├─dplyr::mutate(...)
   16. ├─dplyr:::mutate.data.frame(...)
   17. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
   18. │   ├─base::withCallingHandlers(...)
   19. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
   20. │     └─mask$eval_all_mutate(quo)
   21. │       └─dplyr (local) eval()
   22. ├─vctrs::field(.data$Total, "n")
   23. ├─Total
   24. ├─rlang:::`$.rlang_data_pronoun`(.data, Total)
   25. │ └─rlang:::data_pronoun_get(...)
   26. └─rlang:::abort_data_pronoun(x, call = y)
   27.   └─rlang::abort(msg, "rlang_error_data_pronoun_not_found", call = call)
  Execution halted