Janky progress bar handling

OHDSI · Apr 2, 2024 · 171eab8 · 171eab8
1 parent 6d7316c
commit 171eab8
Showing 1 changed file with 7 additions and 2 deletions.
diff --git 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)
   }