feat: ✨ update algorithm logic to include regex in parentheses

R/get-algorithm.R

@@ -10,12 +10,12 @@
 #' get_algorithm_logic("hba1c")
 #' get_algorithm_logic("gld")
 #' }
-get_algorithm_logic <- function(criteria) {
-  algorithm |>
+get_algorithm_logic <- function(criteria, algorithm_logic = algorithm) {
+  algorithm_logic |>
     dplyr::filter(.data$name == criteria) |>
     dplyr::pull(.data$logic) |>
     stringr::str_replace_all("AND", "&") |>
     stringr::str_replace_all("OR", "|") |>
     # regex are defined with '=~', so convert them into a stringr function.
-    stringr::str_replace_all("(.*) \\=\\~ (.*)", "stringr::str_detect(\\1, \\2)")
+    stringr::str_replace_all("(\\(?)([a-zA-Z0-9_]+)\\)? \\=\\~ ('.*')", "\\1stringr::str_detect(\\2, \\3)")
 }

tests/testthat/test-get-algorithm-logic.R

@@ -0,0 +1,24 @@
+test_algorithm_logic <- data.frame(
+  name = c("hba1c", "podiatrist_services", "gld"),
+  logic = c(
+    "(analysiscode == 'NPU27300' AND value >= 48) OR (analysiscode == 'NPU03835' AND value >= 6.5)",
+    "(speciale =~ '^54') AND (barnmak != 0)",
+    "atc =~ '^A10'"
+  )
+)
+
+test_that("`or` logic is converted to R logic", {
+  get_algorithm_logic("hba1c", test_algorithm_logic) |>
+    expect_equal("(analysiscode == 'NPU27300' & value >= 48) | (analysiscode == 'NPU03835' & value >= 6.5)")
+})
+
+test_that("single regex is converted to R logic", {
+  get_algorithm_logic("gld", test_algorithm_logic) |>
+    expect_equal("stringr::str_detect(atc, '^A10')")
+})
+
+test_that("`and` logic and regex within parentheses are converted to R logic", {
+  # i.e., the regex is within a parenthesis
+  get_algorithm_logic("podiatrist_services", test_algorithm_logic) |>
+    expect_equal("(stringr::str_detect(speciale, '^54')) & (barnmak != 0)")
+})