Add Function To Check Changes For Auto-Approval (#46)

Author: O957

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(check_authorized_users)
+export(check_changes_for_autoapproval)
 export(excluded_locations)
 export(generate_hub_baseline)
 export(generate_hub_ensemble)

R/check_changes_for_autoapproval.R

@@ -0,0 +1,78 @@
+#' Check changed files for auto-approval eligibility.
+#'
+#' This function processes a list of changed files from a
+#' GitHub workflow, errors on any changes outside
+#' model-output directory, and passes model IDs to
+#' check_authorized_users for authorization validation.
+#'
+#' @param changed_files Character vector. List of changed
+#' file paths from the GitHub changed-files workflow output.
+#' @param gh_actor Character. GitHub username of the
+#' person making changes.
+#' @param base_hub_path Character. Path to the base hub
+#' directory.
+#'
+#' @return `NULL`, invisibly, raising an error if changes
+#' are outside model-output or if the user is unauthorized.
+#'
+#' @export
+check_changes_for_autoapproval <- function(
+  changed_files,
+  gh_actor,
+  base_hub_path
+) {
+  checkmate::assert_string(gh_actor)
+  checkmate::assert_string(base_hub_path)
+  checkmate::assert_character(changed_files)
+  if (length(changed_files) < 1) {
+    cli::cli_abort(
+      "Empty PRs cannot be autoapproved. At least one file must be changed in the pull request."
+    )
+  }
+  changed_files_tbl <- tibble::tibble(
+    full_path = changed_files
+  ) |>
+    dplyr::mutate(
+      path_rel_root = fs::path_rel(.data$full_path, start = !!base_hub_path),
+      in_model_output = fs::path_has_parent(
+        .data$path_rel_root,
+        "model-output"
+      ),
+      model_id = ifelse(
+        .data$in_model_output,
+        fs::path_dir(.data$path_rel_root) |> fs::path_file(),
+        NA_character_
+      )
+    )
+  files_outside_model_output <- changed_files_tbl |>
+    dplyr::filter(!.data$in_model_output) |>
+    dplyr::pull(.data$full_path)
+
+  if (length(files_outside_model_output) > 0) {
+    cli::cli_abort(
+      c(
+        "Auto-approval failed: Changes detected outside 'model-output' directory.",
+        "The following files are outside 'model-output':",
+        files_outside_model_output
+      )
+    )
+  }
+  changed_model_ids <- changed_files_tbl |>
+    dplyr::filter(.data$in_model_output) |>
+    dplyr::pull(.data$model_id) |>
+    unique()
+
+  if (length(changed_model_ids) > 0) {
+    cli::cli_inform(
+      "Checking authorization for {length(changed_model_ids)} model director{?y/ies}: {.val {changed_model_ids}}"
+    )
+
+    check_authorized_users(
+      changed_dirs = changed_model_ids,
+      gh_actor = gh_actor,
+      base_hub_path = base_hub_path
+    )
+  }
+
+  invisible()
+}