From 171eab8f74c3447ec85445326928bb8ad05d9be4 Mon Sep 17 00:00:00 2001
From: Admin_asena5 <Admin_asena5@its.jnj.com>
Date: Tue, 2 Apr 2024 14:57:20 -0400
Subject: [PATCH] Janky progress bar handling

---
 R/Database.R | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/R/Database.R b/R/Database.R
index 6273eb9..9c81a16 100644
--- a/R/Database.R
+++ b/R/Database.R
@@ -406,8 +406,13 @@ exportDatabaseToCsv <- function(
         append = tableAppend
       )
       tableAppend = T
-      utils::setTxtProgressBar(pb,endRow)
-
+      # NOTE: Handling progresss bar per note on txtProgressBar
+      # above. Otherwise the progress bar doesn't show that it completed.
+      if (endRow == countN) {
+        utils::setTxtProgressBar(pb,countN + 1)
+      } else {
+        utils::setTxtProgressBar(pb,endRow)
+      }
     }
     close(pb)
   }