Move execution logging to capture any error messages in logs

OHDSI · Jan 16, 2025 · 1f1fb7b · 1f1fb7b
1 parent c425fa4
commit 1f1fb7b
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 11 deletions.
diff --git a/R/Execution.R b/R/Execution.R
@@ -80,6 +80,17 @@ execute <- function(analysisSpecifications,
     }
   }
 
+  # Set up logging
+  if (!dir.exists(dirname(executionSettings$logFileName))) {
+    dir.create(dirname(executionSettings$logFileName), recursive = T)
+  }
+  ParallelLogger::addDefaultFileLogger(
+    name = "STRATEGUS_LOGGER",
+    fileName = executionSettings$logFileName
+  )
+  on.exit(ParallelLogger::unregisterLogger("STRATEGUS_LOGGER"))
+
+
   # Determine if the user has opted to subset to specific modules
   # in the analysis specification. If so, validate that the
   # modulesToExecute are present in the analysis specification
@@ -134,17 +145,6 @@ execute <- function(analysisSpecifications,
     analysisSpecifications$moduleSpecifications <- analysisSpecifications$moduleSpecifications[moduleSubset]
   }
 
-
-  # Set up logging
-  if (!dir.exists(dirname(executionSettings$logFileName))) {
-    dir.create(dirname(executionSettings$logFileName), recursive = T)
-  }
-  ParallelLogger::addDefaultFileLogger(
-    name = "STRATEGUS_LOGGER",
-    fileName = executionSettings$logFileName
-  )
-  on.exit(ParallelLogger::unregisterLogger("STRATEGUS_LOGGER"))
-
   if (is(executionSettings, "CdmExecutionSettings")) {
     cdmDatabaseMetaData <- getCdmDatabaseMetaData(
       cdmExecutionSettings = executionSettings,

diff --git a/Strategus.Rproj b/Strategus.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 33476d3f-e097-4954-a223-a348664c34b9
 
 RestoreWorkspace: No
 SaveWorkspace: No