From 16f62696d42d04d4fea9b6290956ecd1aa7b0c0f Mon Sep 17 00:00:00 2001
From: Anthony Sena <asena5@its.jnj.com>
Date: Fri, 17 Jan 2025 14:14:05 -0500
Subject: [PATCH] Attempt to handle running Char in incremental mode

---
 R/Module-Characterization.R | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/R/Module-Characterization.R b/R/Module-Characterization.R
index b2b05938..0ac81454 100644
--- a/R/Module-Characterization.R
+++ b/R/Module-Characterization.R
@@ -26,6 +26,13 @@ CharacterizationModule <- R6::R6Class(
       workFolder <- jobContext$moduleExecutionSettings$workSubFolder
       resultsFolder <- jobContext$moduleExecutionSettings$resultsSubFolder
 
+      # Handle cleaning of incremental folders/files
+      if (isTRUE(executionSettings$incremental)) {
+        Characterization::cleanIncremental(workFolder)
+      } else {
+        Characterization::cleanNonIncremental(workFolder)
+      }
+
       Characterization::runCharacterizationAnalyses(
         connectionDetails = connectionDetails,
         targetDatabaseSchema = jobContext$moduleExecutionSettings$workDatabaseSchema,