improved progress indicator for large queries <3

GlobalFishingWatch · Nov 8, 2024 · 2b4d03c · 2b4d03c
1 parent c9140cc
commit 2b4d03c
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/get_vessel_info.R b/R/get_vessel_info.R
@@ -192,10 +192,10 @@ get_vessel_info <- function(query = NULL,
     next_since <- next_response$since
     n_entries <- length(next_response$entries)
     if (quiet == FALSE) {
-      total_requests <- floor(total/limit)
-      current_request <- length(responses) + 1
-      message(paste(floor(current_request*100/total_requests), "%" ))
-    }
+      total_requests <- ceiling(total/limit)
+      current_request <- length(responses)
+      cat("\rDownloading", floor(current_request*100/total_requests), "%" )
+      }
   }
   # format tibbles
   all_entries <- purrr::map(responses, purrr::pluck, 'entries')