Check whether files in database are the latest published files
bike_latest_files(bikedb)
| bikedb | A string containing the path to the SQLite3 database.
If no directory specified, it is presumed to be in |
|---|
A named vector of binary values: TRUE is files in bikedb are
the latest versions; otherwise FALSE, in which case store_bikedata
could be run to update the database.
data_dir <- tempdir () bike_write_test_data (data_dir = data_dir) # or download some real data! # dl_bikedata (city = 'la', data_dir = data_dir) bikedb <- file.path (data_dir, 'testdb') store_bikedata (data_dir = data_dir, bikedb = bikedb)#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/201612-citibike-tripdata.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/201604-hubway-tripdata.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/Divvy_Trips_sample.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/2017-Q1-Trips-History-Data.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/la_metro_gbfs_trips_Q1_2017.csv#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/01aJourneyDataExtract10Jan16-23Jan16.csv#>#>#>#> [1] 1198# bike_latest_files (bikedb) # All false because test data are not current, but would pass with real data bike_rm_test_data (data_dir = data_dir)#> [1] 6bike_rm_db (bikedb)#> [1] TRUE# don't forget to remove real data! # file.remove (list.files (data_dir, pattern = '.zip'))