Introduce verbose parameter in FetchAll
diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index 38fbd7d..4f8cd93 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -28,7 +28,7 @@
return(result)
}
-KorAPFectAll <- function(query) {
+KorAPFectAll <- function(query, verbose=FALSE) {
if (query$meta$totalResults == 0) { return(data.frame()) }
page <- 1
@@ -52,8 +52,9 @@
} else {
allMatches <- rbind(allMatches, currentMatches)
}
- print(paste0("Retrieved page: ", page, "/",
- ceiling(expectedResults / res$meta$itemsPerPage)))
+ if (verbose) {
+ cat(paste0("Retrieved page: ", page, "/", ceiling(expectedResults / res$meta$itemsPerPage), ': ', res$meta$benchmark, '\n'))
+ }
page <- page + 1
results <- results + res$meta$itemsPerPage
if (results >= expectedResults) {