Reduce complexity of get_extra pages

luomus · Nov 29, 2023 · 4b7c258 · 4b7c258
1 parent c877de4
commit 4b7c258
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/finbif_records.R b/R/finbif_records.R
@@ -847,7 +847,9 @@ get_extra_pages <- function(fb_records_list) {
 
   quiet <- attr(fb_records_list, "quiet", TRUE)
 
-  if (multipage && !quiet) {
+  use_progress <- multipage && !quiet
+
+  if (use_progress) {
 
     pb_head("Fetching data")
 
@@ -895,7 +897,9 @@ get_extra_pages <- function(fb_records_list) {
 
     }
 
-    if (page == n_pages + 2 || current_page_size == 0) {
+    end <- page == n_pages + 2 || current_page_size == 0
+
+    if (end) {
 
       break