#153

darwin-eu · Jun 11, 2024 · 01c45f5 · 01c45f5
1 parent a387c4d
commit 01c45f5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/drugCodes.R b/R/drugCodes.R
@@ -292,9 +292,11 @@ getDrugIngredientCodes <- function(cdm,
           dplyr::select(!"ancestor_concept_id")
       }
 
-      names(ingredientCodes)[[i]] <- workingName
+      names(ingredientCodes)[[i]] <- paste0(names(ingredientCodes)[i], "_", workingName)
     }
 
+    names(ingredientCodes) <- nonDuplicateEntries(names(ingredientCodes))
+
     if(isFALSE(withConceptDetails)){
     ingredientCodes <- omopgenerics::newCodelist(ingredientCodes)
     }