Number before "Data download..." message & warn_slow_download() afterwards

[katrinleinweber]

I noticed the following problem....

dataset_Bss <- retrieve_data(searchTerm = "Bacillus subtilis subtilis")

 2 Data download in progress for BacDive-IDs: 1156 1157 1158 [...] Warning message:
In warn_slow_download(payload$count) :
  131 BacDive datasets are being downloaded... Please note: Depending on your internet connection speed, and the BacDive server load right now, this might take some time and may cause R(Studio) to become temporarily unresponsive. Maybe go for a walk for a few (I'm guessing: 0.5 to 0.7) minutes ;-)

On: R version 3.5.0 (2018-04-23); Platform: x86_64-w64-mingw32/x64 (64-bit).

I have...

• ... ensured that I have installed the latest version and this issue pertains to it, not to an old version.
• ... spent a few minutes searching the existing issues.

[katrinleinweber]

The number must be the number of pages.

Same reason why there is a space in front of Data download...:

BacDiveR/R/retrieve_data.R

Line 63 in b13a703

message(URLs_to_IDs(URL), " ", appendLF = FALSE)

But I can't move this to

BacDiveR/R/aggregate_datasets.R

Line 14 in b13a703

message("Data download in progress for BacDive-IDs: ", appendLF = FALSE)

, because then it will not get executed for each dataset.

Maybe switch to a progress bar entirely, see #56?

[katrinleinweber]

Also, warn_slow_download() is only called from retrieve_data(), not from retrieve_search_results() :-/

=> Create 1 unified message regardless of download size.