only display progress bar if there are more than 100 records to be re…

…turned to avoid calling pb_tick on a completed progress bar in a loop #36
ropensci · Nov 20, 2020 · e76c4a5 · e76c4a5
1 parent 1bbb64d
commit e76c4a5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/epmc_search.r b/R/epmc_search.r
@@ -127,7 +127,7 @@ epmc_search <- function(query = NULL,
       if (page_token == out$next_cursor)
         break
       i <- i + 1
-      if (verbose == TRUE)
+      if (verbose == TRUE && hits > 100)
         pb$tick()
       page_token <- out$next_cursor
       if (output == "raw") {