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

> ### Name: table_weightedpct
> ### Title: Calculate table of percentages or N of response distribution for
> ###   survey items, survey weighted, disaggregated
> ### Aliases: table_weightedpct
> 
> ### ** Examples
> 
> table_weightedpct(df_adults, 
+     vars_ids = c("HHID", "PSU"),
+     vars_strata = "strata",
+     vars_weights = "weight",
+     formula_vars = paste0("EF",1:10),
+     formula_vars_levels = 1:5,
+     by_vars = "sex")
Warning in table_weightedpct(df_adults, vars_ids = c("HHID", "PSU"), vars_strata = "strata",  :
  You may have issues with lonely PSUs if you have not set: options(survey.lonely.psu = "adjust")
Error in `dplyr::summarise()`:
ℹ In argument: `prop = survey_mean(na.rm = TRUE)`.
ℹ In group 1: `sex = Female`, `item = EF1`, `resp = 1`.
Caused by error in `crossprod()`:
! "crossprod" is not a BUILTIN function
Backtrace:
     ▆
  1. ├─whomds::table_weightedpct(...)
  2. │ └─... %>% mutate(prop = prop * 100)
  3. ├─dplyr::mutate(., prop = prop * 100)
  4. ├─dplyr::summarize(., prop = survey_mean(na.rm = TRUE))
  5. ├─srvyr:::summarise.grouped_svy(., prop = survey_mean(na.rm = TRUE))
  6. │ ├─dplyr::summarise(.data$variables, !!!.dots, .groups = .groups)
  7. │ └─dplyr:::summarise.grouped_df(.data$variables, !!!.dots, .groups = .groups)
  8. │   └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
  9. │     ├─base::withCallingHandlers(...)
 10. │     └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
 11. │       └─base::lapply(.x, .f, ...)
 12. │         └─dplyr (local) FUN(X[[i]], ...)
 13. │           └─mask$eval_all_summarise(quo)
 14. │             └─dplyr (local) eval()
 15. ├─srvyr::survey_mean(na.rm = TRUE)
 16. │ └─srvyr::survey_prop(...)
 17. │   ├─survey::svymean(...)
 18. │   └─survey:::svymean.survey.design2(...)
 19. │     └─survey::svyrecvar(...)
 20. │       └─survey:::multistage(...)
 21. │         └─survey:::onestage(...)
 22. │           └─base::tapply(...)
 23. │             └─base::lapply(X = ans[index], FUN = FUN, ...)
 24. │               └─survey (local) FUN(X[[i]], ...)
 25. │                 └─survey:::onestrat(...)
 26. └─base::.handleSimpleError(...)
 27.   └─dplyr (local) h(simpleError(msg, call))
 28.     └─dplyr (local) handler(cnd)
 29.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted