Count number of entries in sqlite3 database tables
bike_db_totals(bikedb, trips = TRUE, city)
| bikedb | A string containing the path to the SQLite3 database. |
|---|---|
| trips | If true, numbers of trips are counted; otherwise numbers of stations |
| city | Optional city for which numbers of trips are to be counted |
data_dir <- tempdir () bike_write_test_data (data_dir = data_dir) bikedb <- file.path (data_dir, 'testdb') store_bikedata (data_dir = data_dir, bikedb = bikedb)#>#>#>#> reading file 1/3: /tmp/Rtmp88OwDl/hubway_Trips_2012.csv #> reading file 2/3: /tmp/Rtmp88OwDl/201701-hubway-tripdata.csv #> reading file 3/3: /tmp/Rtmp88OwDl/201801_hubway_tripdata.csv#>#>#>#> reading file 1/1: /tmp/Rtmp88OwDl/Divvy_Trips_sample.csv#>#>#>#> reading file 1/1: /tmp/Rtmp88OwDl/2017Q1-capitalbikeshare-tripdata-temp.csv#>#>#>#> reading file 1/1: /tmp/Rtmp88OwDl/la_metro_gbfs_trips_Q1_2017.csv#>#>#>#>#> reading file 1/1: /tmp/Rtmp88OwDl/01aJourneyDataExtract10Jan16-23Jan16.csv#>#>#>#> reading file 1/1: /tmp/Rtmp88OwDl/Nice_Ride_trip_history_2012_season.csv#>#>#>#> reading file 1/1: /tmp/Rtmp88OwDl/201612-citibike-tripdata.csv#>#>#> [1] 1798# create database indexes for quicker access: index_bikedata_db (bikedb = bikedb) bike_db_totals (bikedb = bikedb, trips = TRUE) # total trips#> [1] 1798bike_db_totals (bikedb = bikedb, trips = TRUE, city = 'ch')#> [1] 200bike_db_totals (bikedb = bikedb, trips = TRUE, city = 'ny')#> [1] 200bike_db_totals (bikedb = bikedb, trips = FALSE) # total stations#> [1] 2593bike_db_totals (bikedb = bikedb, trips = FALSE, city = 'ch')#> [1] 581bike_db_totals (bikedb = bikedb, trips = FALSE, city = 'ny')#> [1] 233#> [1] 2593#> [1] 581#> [1] 13bike_rm_db (bikedb)#> [1] TRUE# don't forget to remove real data! # file.remove (list.files ('.', pattern = '.zip'))