Update R/page.R

toph-allen · nealrichardson · web-flow · commit d121c0e00144 · 2025-10-17T10:39:58.000-04:00
Co-authored-by: Neal Richardson &lt;neal.p.richardson@gmail.com&gt;
diff --git a/R/page.R b/R/page.R
@@ -93,7 +93,8 @@ page_offset <- function(client, req, limit = Inf) {
     new_expr <- NULL
     new_req <- NULL
   }
-  agg_response[seq_len(min(limit, length(agg_response)))]
+  # Make sure we never return more than `limit` records
+  head(agg_response, limit)
 }
 
 optional_progress_bar <- function(...) {

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,8 @@ page_offset <- function(client, req, limit = Inf) {`
`93`	`93`	`new_expr <- NULL`
`94`	`94`	`new_req <- NULL`
`95`	`95`	`}`
`96`		`- agg_response[seq_len(min(limit, length(agg_response)))]`
	`96`	+ # Make sure we never return more than `limit` records
	`97`	`+ head(agg_response, limit)`
`97`	`98`	`}`
`98`	`99`
`99`	`100`	`optional_progress_bar <- function(...) {`