Add cohort id to generation output - fixes #132

OHDSI · May 1, 2024 · 4d12c5d · 4d12c5d
1 parent 0c0e487
commit 4d12c5d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/CohortConstruction.R b/R/CohortConstruction.R
@@ -243,7 +243,7 @@ generateCohort <- function(cohortId = NULL,
       connection <- DatabaseConnector::connect(connectionDetails)
       on.exit(DatabaseConnector::disconnect(connection))
     }
-    ParallelLogger::logInfo(i, "/", nrow(cohortDefinitionSet), "- Generating cohort: ", cohortName)
+    ParallelLogger::logInfo(i, "/", nrow(cohortDefinitionSet), "- Generating cohort: ", cohortName, " (id = ", cohortId, ")")
     sql <- cohortDefinitionSet$sql[i]
 
     if (!isSubset) {