Handle case of empty table

OHDSI · Apr 2, 2024 · 6d7316c · 6d7316c
1 parent 2f920e8
commit 6d7316c
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/Database.R b/R/Database.R
@@ -359,7 +359,11 @@ exportDatabaseToCsv <- function(
 
     inds <- floor(countN/maxRowCount)
     tableAppend = F
-    pb = utils::txtProgressBar(min = 0, max = countN, initial = 0)
+    # NOTE: If the table has 0 rows (countN == 0),
+    # then setting the txtProgressBar will fail since
+    # min < max. So, setting max = countN+1 for this
+    # reason.
+    pb = utils::txtProgressBar(min = 0, max = countN+1, initial = 0)
 
     for(i in 1:length(inds)){