feat: ✨ include hba1c criteria

R/get-algorithm.R

@@ -0,0 +1,16 @@
+#' Get the criteria algorithmic logic and convert to an R logic condition.
+#'
+#' @param criteria The name of the inclusion or exclusion criteria to use.
+#'
+#' @return A character string.
+#' @keywords internal
+#'
+#' @examples
+#' get_algorithm_logic("hba1c")
+get_algorithm_logic <- function(criteria) {
+  algorithm |>
+    dplyr::filter(.data$name == criteria) |>
+    dplyr::pull(.data$logic) |>
+    stringr::str_replace_all("AND", "&") |>
+    stringr::str_replace_all("OR", "|")
+}

R/include-hba1c.R

@@ -0,0 +1,32 @@
+#' Include only those with HbA1c in the required range.
+#'
+#' In the `lab_forsker` register, NPU27300 is HbA1c in the modern units (IFCC)
+#' while NPU03835 is HbA1c in old units (DCCT).
+#'
+#' @param data The `lab_forsker` register.
+#'
+#' @return An object of the same input type, default as a [tibble::tibble()],
+#'   with two columns: `pnr` and `included_hba1c`.
+#' @keywords internal
+#'
+#' @examples
+#' register_data$lab_forsker |> include_hba1c()
+include_hba1c <- function(data) {
+  verify_required_variables(data, "lab_forsker")
+  hba1c_criteria <- get_algorithm_logic("hba1c")
+  data |>
+    column_names_to_lower() |>
+    dplyr::filter({{ hba1c_criteria }}) |>
+    # Keep only the columns we need.
+    dplyr::transmute(
+      pnr = .data$patient_cpr,
+      date == .data$samplingdate,
+      included_hba1c = TRUE
+    ) |>
+    dplyr::group_by(pnr) |>
+    # This might not work with some databases
+    # Keep earliest two dates.
+    dplyr::slice_min(date, n = 2) |>
+    dplyr::ungroup()
+}
+