From 11c1b42f93fedaccb8afc75a84b1c1ce05129db3 Mon Sep 17 00:00:00 2001 From: Anthony Sena Date: Wed, 5 Jun 2024 20:13:52 -0400 Subject: [PATCH] Revise to use numeric for nco cohorts (#159) --- R/CohortDefinitionSet.R | 6 +----- ...ativeControlOutcomeCohortSetSpecificationDescription.csv | 4 ++-- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/R/CohortDefinitionSet.R b/R/CohortDefinitionSet.R index 7b09547..7bfc34d 100644 --- a/R/CohortDefinitionSet.R +++ b/R/CohortDefinitionSet.R @@ -513,11 +513,7 @@ checkSettingsColumns <- function(columnNames, settingsFileName = NULL) { for (i in 1:nrow(specifications)) { colName <- specifications$columnName[i] dataType <- specifications$dataType[i] - if (dataType == "integer64") { - df <- df %>% dplyr::mutate(!!colName := do.call(what = bit64::as.integer64, args = list())) - } else { - df <- df %>% dplyr::mutate(!!colName := do.call(what = dataType, args = list())) - } + df <- df %>% dplyr::mutate(!!colName := do.call(what = dataType, args = list())) } invisible(df) } diff --git a/inst/negativeControlOutcomeCohortSetSpecificationDescription.csv b/inst/negativeControlOutcomeCohortSetSpecificationDescription.csv index 6ce6b37..e7a8b15 100644 --- a/inst/negativeControlOutcomeCohortSetSpecificationDescription.csv +++ b/inst/negativeControlOutcomeCohortSetSpecificationDescription.csv @@ -1,4 +1,4 @@ column_name,description,data_type -cohortId,The identifier for the cohort in the negative control outcome cohort set.,integer64 +cohortId,The identifier for the cohort in the negative control outcome cohort set.,numeric cohortName,The name of the cohort in the negative control outcome cohort set.,character -outcomeConceptId,The concept_id used to construct the negative control cohort. This concept_id must be in the condition domain,integer64 +outcomeConceptId,The concept_id used to construct the negative control cohort. This concept_id must be in the condition domain,numeric