Merge pull request #17 from krlmlr/b-not-paged

cu_get_time_entries_within_date_range() is not paged
psolymos · Aug 20, 2023 · d061122 · d061122
2 parents 550ddcd + 9288945
commit d061122
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/api-timetracking-v2.R b/R/api-timetracking-v2.R
@@ -47,7 +47,7 @@ NULL
 ##    Number
 cu_get_time_entries_within_date_range <- function(team_id,
 start_date, end_date, assignee) {
-    .cu_get("team", team_id, "time_entries",
+    .cu_get("team", team_id, "time_entries", paging = FALSE,
         query = list(
             "start_date"=start_date,
             "end_date"=end_date,

diff --git a/R/internals.R b/R/internals.R
@@ -36,11 +36,11 @@
 }
 
 ## convenience function for GET requests with support for paging
-.cu_get <- function(..., query=list()) {
+.cu_get <- function(..., query=list(), paging=TRUE) {
     chunk <- .cu_get_page(..., query = query)
     out <- chunk
     page <- 0
-    while (length(chunk) == 1 && length(chunk[[1]]) == 100) {
+    while (paging && length(chunk) == 1 && length(chunk[[1]]) == 100) {
         page <- page + 1
         query$page <- page
         chunk <- .cu_get_page(..., query = query)