diff --git a/NAMESPACE b/NAMESPACE index bc0006f..aaf9014 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -11,5 +11,6 @@ export(spod_get_data_dir) export(spod_get_valid_dates) export(spod_get_zones) importFrom(rlang,.data) +importFrom(stats,median) importFrom(utils,URLencode) importFrom(utils,vignette) diff --git a/R/get.R b/R/get.R index b04c173..77e8b5f 100644 --- a/R/get.R +++ b/R/get.R @@ -399,6 +399,7 @@ spod_get_zones_v2 <- function( #' #' @param zones_path The path to the zones spatial data file. #' @return A spatial object containing the cleaned zones data. +#' @importFrom stats median #' @keywords internal #' spod_clean_zones_v2 <- function(zones_path) { @@ -469,9 +470,10 @@ spod_clean_zones_v2 <- function(zones_path) { ) zones_ref_aggregated <- zones_ref_renamed |> - dplyr::group_by(id) |> - dplyr::summarise(across( - .cols = everything(), + dplyr::group_by(.data$id) |> + dplyr::summarise( + dplyr::across( + .cols = dplyr::everything(), .fns = ~ paste(.x, collapse = "; "), .names = "{.col}" )) @@ -480,7 +482,7 @@ spod_clean_zones_v2 <- function(zones_path) { zones_ref_aggregated <- zones_ref_aggregated |> dplyr::mutate( dplyr::across( - .cols = everything(), + .cols = dplyr::everything(), .fns = spod_unique_separated_ids ) )