fix tests for downloading non-existent dates

Author: mpadge

NEWS.md

@@ -1,5 +1,7 @@
 0.0.3
 ===================
+- Minor changes only
+- More informative messages when data for specified dates not available
 
 0.0.2
 ===================

R/dl-bikedata.R

@@ -49,14 +49,14 @@ dl_bikedata <- function (city, data_dir = tempdir(), dates = NULL,
     dl_files <- get_bike_files (city)
     files <- file.path (data_dir, basename (dl_files))
 
+    dates_exist <- TRUE # set to F is requested dates do not exist
     if (is.null (dates))
         indx <- which (!file.exists (files))
     else
     {
         dates <- bike_convert_dates (dates) %>%
             expand_dates_to_range %>%
             convert_dates_to_filenames (city = city)
-        dates_exist <- TRUE
         indx <- which (grepl (paste (dates, collapse = "|"), files))
         if (length (indx) == 0)
             dates_exist <- FALSE

R/store-bikedata.R

@@ -76,7 +76,7 @@ store_bikedata <- function (bikedb, city, data_dir, create_index = TRUE,
     if (missing (data_dir))
     {
         if (!quiet)
-            message ('Downloading data for ', city)
+            message ('Checking data for ', city)
         for (ci in city)
             dl_bikedata (city = ci, dates = dates, quiet = quiet)
         data_dir <- tempdir ()

tests/testthat/test-download-data.R

@@ -59,7 +59,7 @@ test_that ('dl_bikedata dc', {
                    expect_message (dl_bikedata (city = 'dc',
                                                 data_dir = tempdir (),
                                                 dates = d),
-                                   'All data files already exist')
+                                   'There are no dc files for those dates')
                chk <- tryCatch (file.remove (files),
                                 warning = function (w) NULL,
                                 error = function (e) NULL)