(v0.9.0.9012) Support for LOINC codes

2025-07-08 13:21:50 +02:00 · 2020-01-26 20:20:00 +01:00
parent 19172b1d48
commit 449d9bde35
35 changed files with 92866 additions and 295 deletions
--- a/R/ab.R
+++ b/R/ab.R
@ -143,6 +143,19 @@ as.ab <- function(x, ...) {
      x_new[i] <- found[1L]
      next
    }
+    
+    # exact LOINC code
+    loinc_found <- unlist(lapply(AMR::antibiotics$loinc,
+                                   function(s) if (x[i] %in% s) {
+                                     TRUE
+                                   } else {
+                                     FALSE
+                                   }))
+    found <- AMR::antibiotics$ab[loinc_found == TRUE]
+    if (length(found) > 0) {
+      x_new[i] <- found[1L]
+      next
+    }

    # exact synonym
    synonym_found <- unlist(lapply(AMR::antibiotics$synonyms,