Update AggregateCovariates.R

fixing issue with different case tars having same id
OHDSI · Aug 5, 2024 · a649f55 · a649f55
1 parent bb26ce7
commit a649f55
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/AggregateCovariates.R b/R/AggregateCovariates.R
@@ -361,7 +361,6 @@ computeCaseAggregateCovariateAnalyses <- function(
     cohortType = c('Cases', 'CasesBefore', 'CasesAfter', 'CasesBetween')
   )
 
-  cohortDetails$cohortDefinitionId <- 1:nrow(cohortDetails)
   cohortDetails$minPriorObservation <- settings$minPriorObservation
   cohortDetails$outcomeWashoutDays <- settings$outcomeWashoutDays
   cohortDetails$casePreTargetDuration <- settings$casePreTargetDuration
@@ -374,6 +373,8 @@ computeCaseAggregateCovariateAnalyses <- function(
 
   # add executionIds
   cohortDetails <- merge(cohortDetails, tars)
+  # moved id so different tars have different id?
+  cohortDetails$cohortDefinitionId <- 1:nrow(cohortDetails)
 
   # add 'Exclude' with random tar
   cohortDetailsExtra <- expand.grid(