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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: crumble_taxonomy
> ### Title: crumble_taxonomy
> ### Aliases: crumble_taxonomy
> 
> ### ** Examples
> 
> ## Don't show: 
> .old_wd <- setwd(tempdir())
> ## End(Don't show)
> 
> data(fecal_waters)
> 
> superkingdom_fecalwaters <- crumble_taxonomy(fecal_waters, "superkingdom")
[1] "Creating object ..."

 *** caught segfault ***
address 0x55568234e208, cause 'invalid permissions'

Traceback:
 1: vec_ptype_common(!!!chunks)
 2: withCallingHandlers(vec_ptype_common(!!!chunks), error = common_handler(name))
 3: dplyr_vec_ptype_common(chunks_k, quo_data$name_auto)
 4: FUN(X[[i]], ...)
 5: lapply(.x, .f, ...)
 6: map(quosures, summarise_eval_one, mask = mask)
 7: withCallingHandlers({    for (i in seq_along(dots)) {        context_poke("column", old_current_column)        quosures <- expand_across(dots[[i]])        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 <- quo_data$name_auto                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)            }        }    }    recycle_info <- .Call(dplyr_summarise_recycle_chunks, chunks,         mask$get_rows(), types, results)    chunks <- recycle_info$chunks    sizes <- recycle_info$sizes    results <- recycle_info$results    for (i in seq_along(chunks)) {        result <- results[[i]] %||% vec_c(!!!chunks[[i]], .ptype = types[[i]])        cols[[out_names[i]]] <- result    }}, error = function(e) {    what <- "computing"    index <- i    if (inherits(e, "dplyr:::summarise_incompatible_size")) {        index <- e$dplyr_error_data$index        what <- "recycling"    }    local_error_context(dots = dots, .index = index, mask = mask)    bullets <- c(cnd_bullet_header(what), summarise_bullets(e))    abort(bullets, call = error_call, parent = skip_internal_condition(e))})
 8: summarise_cols(.data, dplyr_quosures(...), caller_env = caller_env())
 9: summarise.grouped_df(., superkingdom = names(which.max(table(superkingdom))),     total_nb = table(Subgroup))
10: summarize(., superkingdom = names(which.max(table(superkingdom))),     total_nb = table(Subgroup))
11: new_pepsprots %>% group_by(Subgroup) %>% summarize(superkingdom = names(which.max(table(superkingdom))),     total_nb = table(Subgroup))
12: crumble_taxonomy(fecal_waters, "superkingdom")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault