From 4d12c5d32353cdc8a3db490b9ecd7187feb440dd Mon Sep 17 00:00:00 2001 From: Anthony Sena Date: Wed, 1 May 2024 11:18:00 -0400 Subject: [PATCH] Add cohort id to generation output - fixes #132 --- R/CohortConstruction.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/CohortConstruction.R b/R/CohortConstruction.R index d29953b..29820f5 100644 --- 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) {