diff --git a/DESCRIPTION b/DESCRIPTION index 05b76de..5feabd0 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: CodelistGenerator Title: Identify Relevant Clinical Codes and Evaluate Their Use -Version: 3.4.0 +Version: 3.4.0.900 Authors@R: c( person("Edward", "Burn", email = "edward.burn@ndorms.ox.ac.uk", role = c("aut", "cre"), diff --git a/R/getRoutes.R b/R/getRoutes.R index c32b8da..3f72451 100644 --- a/R/getRoutes.R +++ b/R/getRoutes.R @@ -31,7 +31,7 @@ getRouteCategories <- function(cdm) { # relate does form concept id with the classification established by # doseFormToRoute - doseRouteData <- get("doseFormToRoute") + doseRouteData <- CodelistGenerator::doseFormToRoute routeCategory <- cdm$concept_relationship |> # get dose form available in the cdm diff --git a/R/stratifyByRoute.R b/R/stratifyByRoute.R index 98a371f..45ef32e 100644 --- a/R/stratifyByRoute.R +++ b/R/stratifyByRoute.R @@ -43,7 +43,7 @@ stratifyByRouteCategory <- function(x, cdm, keepOriginal = FALSE){ } checkmate::assertLogical(keepOriginal, len = 1) - doseRouteData <- get("doseFormToRoute") + doseRouteData <- CodelistGenerator::doseFormToRoute tableCodelist <- paste0(omopgenerics::uniqueTableName(), omopgenerics::uniqueId()) diff --git a/R/subsetOnRouteCategory.R b/R/subsetOnRouteCategory.R index d460677..b3aa545 100644 --- a/R/subsetOnRouteCategory.R +++ b/R/subsetOnRouteCategory.R @@ -44,7 +44,7 @@ subsetOnRouteCategory <- function(x, cdm, routeCategory){ cli::cli_abort("routeCategory must be a character vector") } - doseRouteData <- get("doseFormToRoute") + doseRouteData <- CodelistGenerator::doseFormToRoute tableCodelist <- paste0(omopgenerics::uniqueTableName(), omopgenerics::uniqueId())