R/api_patterns.R

In sits: Satellite Image Time Series Analysis for Earth Observation Data Cubes

#' @title Extract temporal pattern from samples data.
#' @name .pattern_temporal_median
#' @keywords internal
#' @noRd
#' @param    samples Samples data.
.pattern_temporal_median <- function(samples) {
    samples |>
        dplyr::group_by(.data[["label"]]) |>
        dplyr::group_map(function(data, name) {
            ts_median <- dplyr::bind_rows(data[["time_series"]]) |>
                dplyr::group_by(dplyr::all_of("Index")) |>
                dplyr::summarize(dplyr::across(dplyr::everything(),
                    stats::median,
                    na.rm = TRUE
                )) |>
                dplyr::select(-dplyr::all_of("Index"))

            ts_median["label"] <- name
            ts_median
        })
}

#' @title Extract labels available in patterns.
#' @name .pattern_labels
#' @keywords internal
#' @noRd
#' @param  patterns Samples patterns.
.pattern_labels <- function(patterns) {
    purrr::map_vec(patterns, function(pattern) {
        unique(pattern[["label"]])
    })
}