Progress bar is now optional

andodet · Jun 4, 2020 · 0a340cf · 0a340cf
1 parent 6db0ef1
commit 0a340cf
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/R/get_mob_idx.R b/R/get_mob_idx.R
@@ -31,14 +31,22 @@
 get_mob_idx <- function(start_date = "2020-01-01",
  end_date = Sys.Date(),
  city = NA,
- weekly = FALSE) {
+ weekly = FALSE,
+ verbose = FALSE) {
+
+ # Add progress bar if verbose
+ if (verbose) {
+ prog_bar <- httr::progress(type = "down", con = stdout())
+ } else {
+ prog_bar <- NULL
+ }
 
  # Get data from Citymapper's API
  res <- httr::RETRY(
  "GET",
  url = 'https://citymapper.com/api/gobot_tab/data',
  add_headers("https://github.com/andodet/citymappR/"),
- httr::progress(type = "down", con = stdout())
+ prog_bar
  ) %>%
  content()