cran v3.2.0

DESCRIPTION

@@ -1,16 +1,18 @@
 Package: CodelistGenerator
 Title: Identify Relevant Clinical Codes and Evaluate Their Use
-Version: 3.1.0.900
+Version: 3.2.0
 Authors@R: c(
     person("Edward", "Burn", email = "[email protected]", 
     role = c("aut", "cre"),
     comment = c(ORCID = "0000-0002-9286-1128")),
     person("Marti", "Catala", email = "[email protected]", 
     role = c("ctb"), 
     comment = c(ORCID = "0000-0003-3308-9905")),
-    person("Xihang", " Chen", email = "[email protected]", 
-    role = c("ctb"), 
+    person("Xihang", "Chen", email = "[email protected]", 
+    role = c("aut"), 
     comment = c(ORCID = "0009-0001-8112-8959")),
+    person("Nuria", "Mercade-Besora", email = "[email protected]", 
+    role = c("aut"), comment = c(ORCID = "0009-0006-7948-3747")),
     person("Mike", "Du", email = "[email protected]", 
     role = c("ctb"), 
     comment = c(ORCID = "0000-0002-9517-8834")),

NAMESPACE

@@ -1,6 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
 export("%>%")
+export(availableATC)
+export(availableICD10)
+export(availableIngredients)
 export(codesFromCohort)
 export(codesFromConceptSet)
 export(codesInUse)

R/vocabUtilities.R

@@ -518,10 +518,10 @@ filterOnDoseForm <- function(concepts, conceptDoseForms, doseForm){
 }
 
 addIngredientCount <- function(cdm, concepts) {
-
  ingredient_ancestor <- cdm$concept_ancestor %>%
     dplyr::inner_join(cdm$concept %>%
-                        dplyr::filter(.data$concept_class_id == "Ingredient") %>%
+                        dplyr::filter(.data$concept_class_id == "Ingredient",
+                                      .data$standard_concept == "S") %>%
                         dplyr::select("concept_id"),
                by = c("ancestor_concept_id" = "concept_id"))