Fix bug returning more records than requested

luomus · Apr 23, 2024 · 07898f2 · 07898f2
1 parent c936bcb
commit 07898f2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/finbif_records.R b/R/finbif_records.R
@@ -929,9 +929,9 @@ get_extra_pages <- function(fb_records_list) {
 
     records_i <- value(res)
 
-    if (length(records_i) > current_page_size) {
+    results <- c("content", "results")
 
-      results <- c("content", "results")
+    if (length(records_i[[results]]) > current_page_size) {
 
       results_seq <- seq_len(current_page_size)