add downstrack progress bars

adds to #88
opens #349

DESCRIPTION

@@ -85,7 +85,8 @@ Imports:
     bslib,
     curl,
     crlite,
-    lobstr
+    lobstr,
+    progressr (>= 0.9.0)
 Suggests:
     testthat,
     subugoetheme,

R/import.R

@@ -58,10 +58,14 @@ looped_possibly_cr_works_field <- function(x, field, ...) {
   x <- biblids::as_doi(x)
   # remove this hackfix https://github.com/subugoe/metacheck/issues/182
   x <- as.character(x)
+  pb <- progressr::progressor(
+    along = x,
+    message = "Querying Crossref API (works endpoint) ...",
+    label = "memoised_possibly_cr_works_field"
+  )
   res <- purrr::map_chr(
     x,
-    memoised_possibly_cr_works_field,
-    field = field,
+    function(x) {pb(); memoised_possibly_cr_works_field(x, field = field, ...)},
     ...
   )
   res

R/pretest.R

@@ -78,7 +78,13 @@ tabulate_metacheckable <- function(x, ...) {
   # create empty res object
   res <- tibble::tibble(doi = x)
   prev <- rep_len(TRUE, length(x))
+  pb <- progressr::progressor(
+    along = lazyfuns,
+    message = "Running pretests ...",
+    label = "pretests"
+  )
   for (i in 1:length(lazyfuns)) {
+    pb()
     curr <- lazyfuns[[i]](x, prev)
     res <- tibble::add_column(res, curr, .name_repair = "minimal")
     prev <- curr