R/confidences.R

In ecodata1/hera: Building Environmental Models Together

#' @importFrom dplyr filter
#' @importFrom rlang .data
confidences <- function(data, confidence_function = NULL,
                        aggregates = c(
                          "sample_id",
                          "location_id",
                          "location_description"
                        )) {
  confidences <- purrr::map_df(
    split(
      hera::catalogue,
      1:nrow(hera::catalogue)
    ),
    function(model) {
      if (is.null(data)) {
        return(NULL)
      }
      if (any(names(data) %in% "parameter")) {
        data <- data %>% filter(.data$parameter == model$analysis_name)
      }
      if (nrow(data) == 0) {
        return(NULL)
      }
      if (is.null(confidence_function)) {
        return(NULL)
      }
      confidence <- confidence_function(data, aggregates = aggregates)
      confidence$parameter <- model$analysis_name
      return(confidence)
    }
  )
  return(confidences)
}