diff --git a/DESCRIPTION b/DESCRIPTION index 2c9db9e..135fe48 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: ROMOPMappingTools Title: Tools for Working with OMOP CDM Mappings -Version: 2.0.3 +Version: 2.0.4 Authors@R: person("Javier", "Gracia-Tabuenca", , "javier.graciatabuenca@tuni.fi", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-2455-0598")) diff --git a/NEWS.md b/NEWS.md index aa6bed1..2de5f29 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,7 @@ +# ROMOPMappingTools 2.0.4 + +- Added missing domainId combinations to the usagi file validation + # ROMOPMappingTools 2.0.3 - Added download button to vocabulary and database status tables diff --git a/R/validateUsagiFile.R b/R/validateUsagiFile.R index f755182..4b2e3b1 100644 --- a/R/validateUsagiFile.R +++ b/R/validateUsagiFile.R @@ -250,12 +250,17 @@ validateUsagiFile <- function( # recalculate domains dplyr::mutate(recalcualted_domainId = dplyr::case_when( recalcualted_domainId == "Condition Device" ~ "Condition/Device", + recalcualted_domainId == "Condition Drug" ~ "Condition/Drug", recalcualted_domainId == "Condition Measurement" ~ "Condition/Meas", - recalcualted_domainId == "Condition Observation" ~ "Condition/Obs", + recalcualted_domainId == "Condition Observation" ~ "Condition/Obs", recalcualted_domainId == "Condition Procedure" ~ "Condition/Procedure", recalcualted_domainId == "Device Drug" ~ "Device/Drug", + recalcualted_domainId == "Device Observation" ~ "Device/Obs", recalcualted_domainId == "Device Procedure" ~ "Device/Procedure", + recalcualted_domainId == "Drug Measurement" ~ "Drug/Measurement", + recalcualted_domainId == "Drug Observation" ~ "Drug/Obs", recalcualted_domainId == "Drug Procedure" ~ "Drug/Procedure", + recalcualted_domainId == "Measurement Observation" ~ "Measurement/Obs", recalcualted_domainId == "Measurement Procedure" ~ "Meas/Procedure", recalcualted_domainId == "Observation Procedure" ~ "Obs/Procedure", TRUE ~ recalcualted_domainId