Skip to content

Commit

Permalink
Merge pull request #119 from OxfordIHTM/dev
Browse files Browse the repository at this point in the history
re-factor icd_map function; fix #118
  • Loading branch information
ernestguevarra authored Jul 1, 2024
2 parents e5904e7 + 3aa66d3 commit d77142c
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/icd_map.R
Original file line number Diff line number Diff line change
Expand Up @@ -24,10 +24,10 @@ icd_map <- function(from = c("icd10", "icd11"), to = c("one", "multiple"),
from <- match.arg(from)

if (from == "icd10") {
dat <- paste0("ten_map_to_", to, "_eleven")
dat <- paste0("codigo::ten_map_to_", to, "_eleven")
query <- paste0("icd10_code %in% '", code, "'")
} else {
dat <- "eleven_map_to_one_ten"
dat <- "codigo::eleven_map_to_one_ten"
query <- paste0("icd11_code %in% '", code, "'")
}

Expand Down

0 comments on commit d77142c

Please sign in to comment.