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")

 *** caught segfault ***
address (nil), cause 'unknown'

Traceback:
 1: .Call(dplyr_mask_eval_all_summarise, quo, private)
 2: eval()
 3: mask$eval_all_summarise(quo)
 4: FUN(X[[i]], ...)
 5: lapply(.x, .f, ...)
 6: map(quosures, summarise_eval_one, mask = mask)
 7: withCallingHandlers({    for (i in seq_along(dots)) {        poke_error_context(dots, i, mask = mask)        context_poke("column", old_current_column)        dot <- dots[[i]]        dot <- expand_pick(dot, mask)        quosures <- expand_across(dot)        quosures_results <- map(quosures, summarise_eval_one,             mask = mask)        for (k in seq_along(quosures)) {            quo <- quosures[[k]]            quo_data <- attr(quo, "dplyr:::data")            quo_result <- quosures_results[[k]]            if (is.null(quo_result)) {                next            }            types_k <- quo_result$types            chunks_k <- quo_result$chunks            results_k <- quo_result$results            if (!quo_data$is_named && is.data.frame(types_k)) {                chunks_extracted <- .Call(dplyr_extract_chunks,                   chunks_k, types_k)                types_k_names <- names(types_k)                for (j in seq_along(chunks_extracted)) {                  mask$add_one(name = types_k_names[j], chunks = chunks_extracted[[j]],                     result = results_k[[j]])                }                chunks <- append(chunks, chunks_extracted)                types <- append(types, as.list(types_k))                results <- append(results, results_k)                out_names <- c(out_names, types_k_names)            }            else {                name <- dplyr_quosure_name(quo_data)                mask$add_one(name = name, chunks = chunks_k,                   result = results_k)                chunks <- append(chunks, list(chunks_k))                types <- append(types, list(types_k))                results <- append(results, list(results_k))                out_names <- c(out_names, name)            }        }    }    if (verb == "summarise") {        .Call(dplyr_summarise_check_all_size_one, chunks, n_groups)        group_sizes <- NULL    }    else {        group_sizes <- .Call(dplyr_reframe_recycle_horizontally_in_place,             chunks, results, n_groups)        for (i in seq_along(chunks)) {            if (is.null(results[[i]])) {                results[[i]] <- vec_c(!!!chunks[[i]], .ptype = types[[i]])            }        }    }}, error = function(cnd) {    if (inherits(cnd, "dplyr:::reframe_incompatible_size")) {        action <- "recycle"        i <- cnd$dplyr_error_data$index_expression    }    else if (inherits(cnd, "dplyr:::summarise_incompatible_size")) {        action <- "compute"        i <- cnd$dplyr_error_data$index_expression    }    else {        action <- "compute"        i <- i    }    handler <- dplyr_error_handler(dots = dots, mask = mask,         bullets = summarise_bullets, error_call = error_call,         action = action)    handler(cnd)}, warning = dplyr_warning_handler(state = warnings_state, mask = mask,     error_call = error_call))
 8: summarise_cols(.data, dplyr_quosures(...), by, "summarise")
 9: summarise.grouped_df(.data$variables, !!!.dots, .groups = .groups)
10: dplyr::summarise(.data$variables, !!!.dots, .groups = .groups)
11: summarise.grouped_svy(., prop = survey_mean(na.rm = TRUE))
12: summarize(., prop = survey_mean(na.rm = TRUE))
13: mutate(., prop = prop * 100)
14: des %>% group_by_at(c(by_vars, "item", "resp")) %>% summarize(prop = survey_mean(na.rm = TRUE)) %>%     mutate(prop = prop * 100)
15: 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")
An irrecoverable exception occurred. R is aborting now ...