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

> ### Name: summarize_sampling_rate
> ### Title: Returns a summary of sampling rates
> ### Aliases: summarize_sampling_rate summarize_sampling_rate.track_xyt
> ###   summarize_sampling_rate_many summarize_sampling_rate_many.track_xyt
> 
> ### ** Examples
> 
> data(deer)
> amt::summarize_sampling_rate(deer)
# A tibble: 1 × 9
    min    q1 median  mean    q3   max    sd     n unit 
  <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl> <int> <chr>
1  5.96  6.00   6.01  11.5  6.02 3924.  137.   825 hour 
> 
> data(amt_fisher)
> # Add the month
> amt_fisher %>% mutate(yday = lubridate::yday(t_)) %>%
+ summarize_sampling_rate_many(c("id", "yday"))

 *** caught segfault ***
address 0x4, cause 'memory not mapped'

Traceback:
 1: as.POSIXlt.POSIXct(x, tz = tz(x))
 2: as.POSIXlt(x, tz = tz(x))
 3: yday.default(t_)
 4: lubridate::yday(t_)
 5: .Call(dplyr_mask_eval_all_mutate, quo, private)
 6: mask$eval_all_mutate(quo)
 7: withCallingHandlers({    for (i in seq_along(dots)) {        mask$across_cache_reset()        context_poke("column", old_current_column)        quosures <- expand_across(dots[[i]])        quosures_results <- vector(mode = "list", length = length(quosures))        for (k in seq_along(quosures)) {            quo <- quosures[[k]]            quo_data <- attr(quo, "dplyr:::data")            if (!is.null(quo_data$column)) {                context_poke("column", quo_data$column)            }            chunks <- NULL            result <- NULL            if (quo_is_symbol(quo)) {                name <- as_string(quo_get_expr(quo))                if (name %in% names(new_columns)) {                  result <- new_columns[[name]]                  chunks <- mask$resolve(name)                }                else if (name %in% names(.data)) {                  result <- .data[[name]]                  chunks <- mask$resolve(name)                }                if (inherits(.data, "rowwise_df") && vec_is_list(result)) {                  sizes <- list_sizes(result)                  wrong <- which(sizes != 1)                  if (length(wrong)) {                    group <- wrong[1L]                    mask$set_current_group(group)                    abort(x_size = sizes[group], class = "dplyr:::mutate_incompatible_size")                  }                }            }            if (is.null(chunks)) {                chunks <- mask$eval_all_mutate(quo)            }            if (is.null(chunks)) {                next            }            if (is.null(result)) {                if (length(rows) == 1) {                  result <- chunks[[1]]                }                else {                  result <- withCallingHandlers(vec_unchop(chunks <- vec_cast_common(!!!chunks),                     rows), vctrs_error_incompatible_type = function(cnd) {                    abort(class = "dplyr:::error_mutate_incompatible_combine",                       parent = cnd)                  })                }            }            quosures_results[[k]] <- list(result = result, chunks = chunks)        }        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)) {                if (quo_data$is_named) {                  name <- quo_data$name_given                  new_columns[[name]] <- zap()                  mask$remove(name)                }                next            }            result <- quo_result$result            chunks <- quo_result$chunks            if (!quo_data$is_named && is.data.frame(result)) {                new_columns[names(result)] <- result                mask$add_many(result, chunks)            }            else {                name <- quo_data$name_auto                new_columns[[name]] <- result                mask$add_one(name, chunks)            }        }    }}, error = function(e) {    local_call_step(dots = dots, .index = i, .fn = "mutate",         .dot_data = inherits(e, "rlang_error_data_pronoun_not_found"))    call_step_envir <- peek_call_step()    error_name <- call_step_envir$error_name    error_expression <- call_step_envir$error_expression    show_group_details <- TRUE    if (inherits(e, "dplyr:::mutate_incompatible_size")) {        size <- vec_size(rows[[mask$get_current_group()]])        x_size <- e$x_size        bullets <- c(i = cnd_bullet_column_info(), i = glue("`{error_name}` must be size {or_1(size)}, not {x_size}."),             i = cnd_bullet_rowwise_unlist())    }    else if (inherits(e, "dplyr:::mutate_mixed_null")) {        show_group_details <- FALSE        bullets <- c(i = cnd_bullet_column_info(), x = glue("`{error_name}` must return compatible vectors across groups."),             i = "Cannot combine NULL and non NULL results.",             i = cnd_bullet_rowwise_unlist())    }    else if (inherits(e, "dplyr:::mutate_not_vector")) {        bullets <- c(i = cnd_bullet_column_info(), x = glue("`{error_name}` must be a vector, not {friendly_type_of(e$result)}."),             i = cnd_bullet_rowwise_unlist())    }    else if (inherits(e, "dplyr:::error_mutate_incompatible_combine")) {        show_group_details <- FALSE        bullets <- c(i = cnd_bullet_column_info(), x = glue("`{error_name}` must return compatible vectors across groups"),             i = cnd_bullet_combine_details(e$parent$x, e$parent$x_arg),             i = cnd_bullet_combine_details(e$parent$y, e$parent$y_arg))    }    else {        bullets <- c(i = cnd_bullet_column_info(), x = conditionMessage(e))    }    bullets <- c(cnd_bullet_header(), bullets, i = if (show_group_details) cnd_bullet_cur_group_label())    abort(bullets, class = c("dplyr:::mutate_error", "dplyr_error"),         error_name = error_name, error_expression = error_expression,         parent = e, bullets = bullets)}, warning = function(w) {    if (check_muffled_warning(w)) {        maybe_restart("muffleWarning")    }    local_call_step(dots = dots, .index = i, .fn = "mutate")    warn(c(cnd_bullet_header(), i = cnd_bullet_column_info(),         i = conditionMessage(w), i = cnd_bullet_cur_group_label(what = "warning")))    maybe_restart("muffleWarning")})
 8: mutate_cols(.data, ..., caller_env = caller_env())
 9: mutate.data.frame(., yday = lubridate::yday(t_))
10: NextMethod()
11: as.vector(y)
12: setdiff(from$class, class(to))
13: track_transfer_attr(.data, NextMethod())
14: mutate.track_xy(., yday = lubridate::yday(t_))
15: NextMethod()
16: as.vector(y)
17: setdiff(from$class, class(to))
18: track_transfer_attr(.data, NextMethod())
19: mutate.track_xyt(., yday = lubridate::yday(t_))
20: mutate(., yday = lubridate::yday(t_))
21: summarize_sampling_rate_many(., c("id", "yday"))
22: amt_fisher %>% mutate(yday = lubridate::yday(t_)) %>% summarize_sampling_rate_many(c("id",     "yday"))
An irrecoverable exception occurred. R is aborting now ...