R Under development (unstable) (2020-01-09 r77646) -- "Unsuffered Consequences" Copyright (C) 2020 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. Natural language support but running in an English locale R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > pkgname <- "bikedata" > source(file.path(R.home("share"), "R", "examples-header.R")) > options(warn = 1) > library('bikedata') Data for London, U.K. powered by TfL Open Data: Contains OS data Ⓒ Crown copyright and database rights 2016 Data for New York City provided and owned by: NYC Bike Share, LLC and Jersey City Bike Share, LLC ("Bikeshare") see https://www.citibikenyc.com/data-sharing-policy Data for Washington DC (Captialbikeshare), Chiago (Divvybikes) and Boston (Hubway) provided and owned by Motivate International Inc. see https://www.capitalbikeshare.com/data-license-agreement and https://www.divvybikes.com/data-license-agreement and https://www.thehubway.com/data-license-agreement Nice Ride Minnesota license https://assets.niceridemn.com/data-license-agreement.html > > base::assign(".oldSearch", base::search(), pos = 'CheckExEnv') > base::assign(".old_wd", base::getwd(), pos = 'CheckExEnv') > cleanEx() > nameEx("bike_cities") > ### * bike_cities > > flush(stderr()); flush(stdout()) > > ### Name: bike_cities > ### Title: List of cities currently included in bikedata > ### Aliases: bike_cities > > ### ** Examples > > bike_cities () city city_name bike_system 1 bo Boston Hubway 2 ch Chicago Divvy 3 dc Washington DC CapitalBikeShare 4 gu Guadalajara mibici 5 la Los Angeles Metro 6 lo London Santander 7 mo Montreal Bixi 8 mn Minneapolis NiceRide 9 ny New York Citibike 10 ph Philadelphia Indego 11 sf Bay Area FordGoBike > > > > cleanEx() > nameEx("bike_daily_trips") > ### * bike_daily_trips > > flush(stderr()); flush(stdout()) > > ### Name: bike_daily_trips > ### Title: Extract daily trip counts for all stations > ### Aliases: bike_daily_trips > > ### ** Examples > > ## Not run: > ##D bike_write_test_data () # by default in tempdir () > ##D # dl_bikedata (city = 'la', data_dir = data_dir) # or download some real data! > ##D store_bikedata (data_dir = tempdir (), bikedb = 'testdb') > ##D # create database indexes for quicker access: > ##D index_bikedata_db (bikedb = 'testdb') > ##D > ##D bike_daily_trips (bikedb = 'testdb', city = 'ny') > ##D bike_daily_trips (bikedb = 'testdb', city = 'ny', member = TRUE) > ##D bike_daily_trips (bikedb = 'testdb', city = 'ny', gender = 'f') > ##D bike_daily_trips (bikedb = 'testdb', city = 'ny', station = '173', > ##D gender = 1) > ##D > ##D bike_rm_test_data () > ##D bike_rm_db ('testdb') > ##D # don't forget to remove real data! > ##D # file.remove (list.files ('.', pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("bike_datelimits") > ### * bike_datelimits > > flush(stderr()); flush(stdout()) > > ### Name: bike_datelimits > ### Title: Extract date-time limits from trip database > ### Aliases: bike_datelimits > > ### ** Examples > > data_dir <- tempdir () > bike_write_test_data (data_dir = data_dir) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample/ (stored 0%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample/Divvy_Trips_sample.csv (deflated 79%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample/Divvy_Stations.csv (deflated 68%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201701-hubway-tripdata.csv (deflated 81%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201801_hubway_tripdata.csv (deflated 81%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_data_2012_season/ (stored 0%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_data_2012_season/Nice_Ride_trip_history_2012_season.csv (deflated 81%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_data_2012_season/Nice_Ride_2012-station_locations .csv (deflated 62%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/2017Q1-capitalbikeshare-tripdata-temp.csv (deflated 80%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/la_metro_gbfs_trips_Q1_2017.csv (deflated 85%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201612-citibike-tripdata.csv (deflated 74%) > # dl_bikedata (city = 'la', data_dir = data_dir) # or download some real data! > # Remove one London file that triggers an API call which may fail tests: > file.remove (file.path (tempdir(), "01aJourneyDataExtract10Jan16-23Jan16.csv")) [1] TRUE > bikedb <- file.path (data_dir, 'testdb') > store_bikedata (data_dir = data_dir, bikedb = bikedb) Creating sqlite3 database Unzipping raw data files for bo ... Reading files for bo ... reading file 1/3: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/hubway_Trips_2012.csv reading file 2/3: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201701-hubway-tripdata.csv reading file 3/3: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201801_hubway_tripdata.csv Trips read for bo = 600 Unzipping raw data files for ch ... Reading files for ch ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample.csv Trips read for ch = 200 Unzipping raw data files for dc ... Reading files for dc ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/2017Q1-capitalbikeshare-tripdata-temp.csv Trips read for dc = 200 Unzipping raw data files for la ... Reading files for la ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/la_metro_gbfs_trips_Q1_2017.csv Trips read for la = 198 Unzipping raw data files for mn ... Reading files for mn ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_trip_history_2012_season.csv utils.cpp:272:24: runtime error: signed integer overflow: 702947 * 86400 cannot be represented in type 'int' #0 0x7ff9087295c6 in utils::timediff(std::__cxx11::basic_string, std::allocator >, std::__cxx11::basic_string, std::allocator >) /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/utils.cpp:272 #1 0x7ff9086618cb in city::read_one_line_generic(sqlite3_stmt*, char*, std::map, std::allocator >, std::__cxx11::basic_string, std::allocator >, std::less, std::allocator > >, std::allocator, std::allocator > const, std::__cxx11::basic_string, std::allocator > > > >*, std::__cxx11::basic_string, std::allocator >, HeaderStruct const&, std::map, std::allocator >, std::__cxx11::basic_string, std::allocator >, std::less, std::allocator > >, std::allocator, std::allocator > const, std::__cxx11::basic_string, std::allocator > > > >&) /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/read-city-files.cpp:177 #2 0x7ff9086fcbab in rcpp_import_to_trip_table(char const*, Rcpp::Vector<16, Rcpp::PreserveStorage>, std::__cxx11::basic_string, std::allocator >, std::__cxx11::basic_string, std::allocator >, bool, bool) /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/sqlite3db-add-data.cpp:170 #3 0x7ff9085ed2ed in _bikedata_rcpp_import_to_trip_table /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/RcppExports.cpp:33 #4 0x57858c in R_doDotCall /data/gannet/ripley/R/svn/R-devel/src/main/dotcode.c:614 #5 0x634fa9 in bcEval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:7610 #6 0x66972f in Rf_eval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:688 #7 0x66eb25 in R_execClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1853 #8 0x671244 in Rf_applyClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1779 #9 0x63bcf1 in bcEval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:7022 #10 0x66972f in Rf_eval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:688 #11 0x66eb25 in R_execClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1853 #12 0x671244 in Rf_applyClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1779 #13 0x669b78 in Rf_eval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:811 #14 0x6e64dd in Rf_ReplIteration /data/gannet/ripley/R/svn/R-devel/src/main/main.c:264 #15 0x6e64dd in Rf_ReplIteration /data/gannet/ripley/R/svn/R-devel/src/main/main.c:200 #16 0x6e6bd8 in R_ReplConsole /data/gannet/ripley/R/svn/R-devel/src/main/main.c:314 #17 0x6e6d24 in run_Rmainloop /data/gannet/ripley/R/svn/R-devel/src/main/main.c:1113 #18 0x419388 in main /data/gannet/ripley/R/svn/R-devel/src/main/Rmain.c:29 #19 0x7ff919b62f42 in __libc_start_main (/lib64/libc.so.6+0x23f42) #20 0x41bacd in _start (/data/gannet/ripley/R/gcc-SAN/bin/exec/R+0x41bacd) utils.cpp:273:24: runtime error: signed integer overflow: 702947 * 86400 cannot be represented in type 'int' #0 0x7ff9087296aa in utils::timediff(std::__cxx11::basic_string, std::allocator >, std::__cxx11::basic_string, std::allocator >) /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/utils.cpp:273 #1 0x7ff9086618cb in city::read_one_line_generic(sqlite3_stmt*, char*, std::map, std::allocator >, std::__cxx11::basic_string, std::allocator >, std::less, std::allocator > >, std::allocator, std::allocator > const, std::__cxx11::basic_string, std::allocator > > > >*, std::__cxx11::basic_string, std::allocator >, HeaderStruct const&, std::map, std::allocator >, std::__cxx11::basic_string, std::allocator >, std::less, std::allocator > >, std::allocator, std::allocator > const, std::__cxx11::basic_string, std::allocator > > > >&) /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/read-city-files.cpp:177 #2 0x7ff9086fcbab in rcpp_import_to_trip_table(char const*, Rcpp::Vector<16, Rcpp::PreserveStorage>, std::__cxx11::basic_string, std::allocator >, std::__cxx11::basic_string, std::allocator >, bool, bool) /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/sqlite3db-add-data.cpp:170 #3 0x7ff9085ed2ed in _bikedata_rcpp_import_to_trip_table /data/gannet/ripley/R/packages/tests-gcc-SAN/bikedata/src/RcppExports.cpp:33 #4 0x57858c in R_doDotCall /data/gannet/ripley/R/svn/R-devel/src/main/dotcode.c:614 #5 0x634fa9 in bcEval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:7610 #6 0x66972f in Rf_eval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:688 #7 0x66eb25 in R_execClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1853 #8 0x671244 in Rf_applyClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1779 #9 0x63bcf1 in bcEval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:7022 #10 0x66972f in Rf_eval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:688 #11 0x66eb25 in R_execClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1853 #12 0x671244 in Rf_applyClosure /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:1779 #13 0x669b78 in Rf_eval /data/gannet/ripley/R/svn/R-devel/src/main/eval.c:811 #14 0x6e64dd in Rf_ReplIteration /data/gannet/ripley/R/svn/R-devel/src/main/main.c:264 #15 0x6e64dd in Rf_ReplIteration /data/gannet/ripley/R/svn/R-devel/src/main/main.c:200 #16 0x6e6bd8 in R_ReplConsole /data/gannet/ripley/R/svn/R-devel/src/main/main.c:314 #17 0x6e6d24 in run_Rmainloop /data/gannet/ripley/R/svn/R-devel/src/main/main.c:1113 #18 0x419388 in main /data/gannet/ripley/R/svn/R-devel/src/main/Rmain.c:29 #19 0x7ff919b62f42 in __libc_start_main (/lib64/libc.so.6+0x23f42) #20 0x41bacd in _start (/data/gannet/ripley/R/gcc-SAN/bin/exec/R+0x41bacd) Trips read for mn = 200 Unzipping raw data files for ny ... Reading files for ny ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201612-citibike-tripdata.csv Trips read for ny = 200 Total trips read = 1,598 [1] 1598 > # create database indexes for quicker access: > index_bikedata_db (bikedb = bikedb) > > bike_datelimits ('testdb') # overall limits for all cities first last "2012-04-02 13:07:00" "2018-01-02 07:02:04" > bike_datelimits ('testdb', city = 'NYC') first last "2016-12-01 00:00:04" "2016-12-01 01:33:37" > bike_datelimits ('testdb', city = 'los angeles') first last "2017-01-01 00:15:00" "2017-01-01 16:55:00" > > bike_rm_test_data (data_dir = data_dir) [1] 12 > bike_rm_db (bikedb) [1] TRUE > # don't forget to remove real data! > # file.remove (list.files ('.', pattern = '.zip')) > > > > cleanEx() > nameEx("bike_db_totals") > ### * bike_db_totals > > flush(stderr()); flush(stdout()) > > ### Name: bike_db_totals > ### Title: Count number of entries in sqlite3 database tables > ### Aliases: bike_db_totals > > ### ** Examples > > data_dir <- tempdir () > bike_write_test_data (data_dir = data_dir) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample/ (stored 0%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample/Divvy_Trips_sample.csv (deflated 79%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample/Divvy_Stations.csv (deflated 68%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201701-hubway-tripdata.csv (deflated 81%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201801_hubway_tripdata.csv (deflated 81%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_data_2012_season/ (stored 0%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_data_2012_season/Nice_Ride_trip_history_2012_season.csv (deflated 81%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_data_2012_season/Nice_Ride_2012-station_locations .csv (deflated 62%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/2017Q1-capitalbikeshare-tripdata-temp.csv (deflated 80%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/la_metro_gbfs_trips_Q1_2017.csv (deflated 85%) adding: tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201612-citibike-tripdata.csv (deflated 74%) > bikedb <- file.path (data_dir, 'testdb') > store_bikedata (data_dir = data_dir, bikedb = bikedb) Creating sqlite3 database Unzipping raw data files for bo ... Reading files for bo ... reading file 1/3: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/hubway_Trips_2012.csv reading file 2/3: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201701-hubway-tripdata.csv reading file 3/3: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201801_hubway_tripdata.csv Trips read for bo = 600 Unzipping raw data files for ch ... Reading files for ch ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Divvy_Trips_sample.csv Trips read for ch = 200 Unzipping raw data files for dc ... Reading files for dc ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/2017Q1-capitalbikeshare-tripdata-temp.csv Trips read for dc = 200 Unzipping raw data files for la ... Reading files for la ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/la_metro_gbfs_trips_Q1_2017.csv Trips read for la = 198 Reading files for lo ... getting london stations ... done reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/01aJourneyDataExtract10Jan16-23Jan16.csv Trips read for lo = 200 Unzipping raw data files for mn ... Reading files for mn ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/Nice_Ride_trip_history_2012_season.csv Trips read for mn = 200 Unzipping raw data files for ny ... Reading files for ny ... reading file 1/1: /tmp/RtmpoQT7Z0/working_dir/RtmpNPPPs5/201612-citibike-tripdata.csv Trips read for ny = 200 Total trips read = 1,798 [1] 1798 > # create database indexes for quicker access: > index_bikedata_db (bikedb = bikedb) > > bike_db_totals (bikedb = bikedb, trips = TRUE) # total trips [1] 1798 > bike_db_totals (bikedb = bikedb, trips = TRUE, city = 'ch') [1] 200 > bike_db_totals (bikedb = bikedb, trips = TRUE, city = 'ny') [1] 200 > bike_db_totals (bikedb = bikedb, trips = FALSE) # total stations [1] 2487 > bike_db_totals (bikedb = bikedb, trips = FALSE, city = 'ch') [1] 581 > bike_db_totals (bikedb = bikedb, trips = FALSE, city = 'ny') [1] 233 > # numbers of stations can also be extracted with > nrow (bike_stations (bikedb = bikedb)) [1] 2487 > nrow (bike_stations (bikedb = bikedb, city = 'ch')) [1] 581 > > bike_rm_test_data (data_dir = data_dir) [1] 13 > bike_rm_db (bikedb) [1] TRUE > # don't forget to remove real data! > # file.remove (list.files ('.', pattern = '.zip')) > > > > cleanEx() > nameEx("bike_demographic_data") > ### * bike_demographic_data > > flush(stderr()); flush(stdout()) > > ### Name: bike_demographic_data > ### Title: Static summary of which systems provide demographic data > ### Aliases: bike_demographic_data > > ### ** Examples > > bike_demographic_data () city city_name bike_system demographic_data 1 bo Boston Hubway TRUE 2 ch Chicago Divvy TRUE 3 dc Washington DC CapitalBikeShare FALSE 4 gu Guadalajara mibici TRUE 5 la Los Angeles Metro FALSE 6 lo London Santander FALSE 7 mo Montreal Bixi FALSE 8 mn Minneapolis NiceRide TRUE 9 ny New York Citibike TRUE 10 ph Philadelphia Indego FALSE 11 sf Bay Area FordGoBike TRUE > # Examples of filtering data by demographic parameters: > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D # create database indexes for quicker access: > ##D index_bikedata_db (bikedb = bikedb) > ##D > ##D sum (bike_tripmat (bikedb = bikedb, city = 'bo')) # 200 trips > ##D sum (bike_tripmat (bikedb = bikedb, city = 'bo', birth_year = 1990)) # 9 > ##D sum (bike_tripmat (bikedb = bikedb, city = 'bo', gender = 'f')) # 22 > ##D sum (bike_tripmat (bikedb = bikedb, city = 'bo', gender = 2)) # 22 > ##D sum (bike_tripmat (bikedb = bikedb, city = 'bo', gender = 1)) # = m; 68 > ##D sum (bike_tripmat (bikedb = bikedb, city = 'bo', gender = 0)) # = n; 9 > ##D # Sum of gender-filtered trips is less than total because \code{gender = 0} > ##D # extracts all registered users with unspecified genders, while without gender > ##D # filtering extracts all trips for registered and non-registered users. > ##D > ##D # The following generates an error because Washinton DC's DivvyBike system does > ##D # not provide demographic data > ##D sum (bike_tripmat (bikedb = bikedb, city = 'dc', birth_year = 1990)) > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ## End(Not run) > > > > cleanEx() > nameEx("bike_latest_files") > ### * bike_latest_files > > flush(stderr()); flush(stdout()) > > ### Name: bike_latest_files > ### Title: Check whether files in database are the latest published files > ### Aliases: bike_latest_files > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D # or download some real data! > ##D # dl_bikedata (city = 'la', data_dir = data_dir) > ##D # Remove one London file that triggers an API call which may fail tests: > ##D file.remove (file.path (tempdir(), "01aJourneyDataExtract10Jan16-23Jan16.csv")) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D # bike_latest_files (bikedb) > ##D # All false because test data are not current, but would pass with real data > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files (data_dir, pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("bike_rm_db") > ### * bike_rm_db > > flush(stderr()); flush(stdout()) > > ### Name: bike_rm_db > ### Title: Remove SQLite3 database generated with 'store_bikedat()' > ### Aliases: bike_rm_db > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D # or download some real data! > ##D # dl_bikedata (city = 'la', data_dir = data_dir) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files (data_dir, pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("bike_rm_test_data") > ### * bike_rm_test_data > > flush(stderr()); flush(stdout()) > > ### Name: bike_rm_test_data > ### Title: Removes test data written with 'bike_write_test_data()' > ### Aliases: bike_rm_test_data > > ### ** Examples > > ## Not run: > ##D bike_write_test_data () > ##D list.files (tempdir ()) > ##D bike_rm_test_data () > ##D > ##D bike_write_test_data (data_dir = getwd ()) > ##D list.files () > ##D bike_rm_test_data (data_dir = getwd ()) > ## End(Not run) > > > > cleanEx() > nameEx("bike_stations") > ### * bike_stations > > flush(stderr()); flush(stdout()) > > ### Name: bike_stations > ### Title: Extract station matrix from SQLite3 database > ### Aliases: bike_stations > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D # or download some real data! > ##D # dl_bikedata (city = 'la', data_dir = data_dir) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D # create database indexes for quicker access: > ##D index_bikedata_db (bikedb = bikedb) > ##D > ##D stations <- bike_stations (bikedb) > ##D head (stations) > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files (data_dir, pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("bike_stored_files") > ### * bike_stored_files > > flush(stderr()); flush(stdout()) > > ### Name: bike_stored_files > ### Title: Get names of files read into database > ### Aliases: bike_stored_files > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D files <- bike_stored_files (bikedb = bikedb) > ##D # returns a tibble with names of all stored files > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files ('.', pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("bike_summary_stats") > ### * bike_summary_stats > > flush(stderr()); flush(stdout()) > > ### Name: bike_summary_stats > ### Title: Extract summary statistics of database > ### Aliases: bike_summary_stats > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D # dl_bikedata (city = 'la', data_dir = data_dir) # or download some real data! > ##D # Remove one London file that triggers an API call which may fail tests: > ##D file.remove (file.path (tempdir(), "01aJourneyDataExtract10Jan16-23Jan16.csv")) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D # create database indexes for quicker access: > ##D index_bikedata_db (bikedb = bikedb) > ##D > ##D bike_summary_stats ('testdb') > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files ('.', pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("bike_tripmat") > ### * bike_tripmat > > flush(stderr()); flush(stdout()) > > ### Name: bike_tripmat > ### Title: Extract station-to-station trip matrix or data.frame from > ### SQLite3 database > ### Aliases: bike_tripmat > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D # or download some real data! > ##D # dl_bikedata (city = 'la', data_dir = data_dir) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D # create database indexes for quicker access: > ##D index_bikedata_db (bikedb = bikedb) > ##D > ##D > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny') # full trip matrix > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', > ##D start_date = 20161201, end_date = 20161201) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', start_time = 1) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', start_time = "01:00") > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', end_time = "01:00") > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', > ##D start_date = 20161201, start_time = 1) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', start_date = 20161201, > ##D end_date = 20161201, start_time = 1, end_time = 2) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', weekday = 5) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', weekday = c('f', 'sa', 'th')) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', weekday = c('f', 'th', 'sa')) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', member = 1) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', birth_year = 1976) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', birth_year = 1976:1990) > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', gender = 'f') > ##D tm <- bike_tripmat (bikedb = bikedb, city = 'ny', > ##D gender = 'm', birth_year = 1976:1990) > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files (data_dir, pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("bike_write_test_data") > ### * bike_write_test_data > > flush(stderr()); flush(stdout()) > > ### Name: bike_write_test_data > ### Title: Writes test data bundled with package to zip files > ### Aliases: bike_write_test_data > > ### ** Examples > > ## Not run: > ##D bike_write_test_data () > ##D list.files (tempdir ()) > ##D bike_rm_test_data () > ##D > ##D bike_write_test_data (data_dir = '.') > ##D list.files () > ##D bike_rm_test_data (data_dir = '.') > ## End(Not run) > > > > cleanEx() > nameEx("dl_bikedata") > ### * dl_bikedata > > flush(stderr()); flush(stdout()) > > ### Name: dl_bikedata > ### Title: Download hire bicycle data > ### Aliases: dl_bikedata download_bikedata > > ### ** Examples > > ## Not run: > ##D dl_bikedata (city = 'New York City USA', dates = 201601:201613) > ## End(Not run) > > > > cleanEx() > nameEx("index_bikedata_db") > ### * index_bikedata_db > > flush(stderr()); flush(stdout()) > > ### Name: index_bikedata_db > ### Title: Add indexes to database created with store_bikedata > ### Aliases: index_bikedata_db > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D # or download some real data! > ##D # dl_bikedata (city = 'la', data_dir = data_dir) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D # create database indexes for quicker access: > ##D index_bikedata_db (bikedb = bikedb) > ##D > ##D trips <- bike_tripmat (bikedb = bikedb, city = 'LA') # trip matrix > ##D stations <- bike_stations (bikedb = bikedb) # station data > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files (data_dir, pattern = '.zip')) > ## End(Not run) > > > > cleanEx() > nameEx("store_bikedata") > ### * store_bikedata > > flush(stderr()); flush(stdout()) > > ### Name: store_bikedata > ### Title: Store hire bicycle data in SQLite3 database > ### Aliases: store_bikedata > > ### ** Examples > > ## Not run: > ##D data_dir <- tempdir () > ##D bike_write_test_data (data_dir = data_dir) > ##D # or download some real data! > ##D # dl_bikedata (city = 'la', data_dir = data_dir) > ##D bikedb <- file.path (data_dir, 'testdb') > ##D store_bikedata (data_dir = data_dir, bikedb = bikedb) > ##D # create database indexes for quicker access: > ##D index_bikedata_db (bikedb = bikedb) > ##D > ##D trips <- bike_tripmat (bikedb = bikedb, city = 'LA') # trip matrix > ##D stations <- bike_stations (bikedb = bikedb) # station data > ##D > ##D bike_rm_test_data (data_dir = data_dir) > ##D bike_rm_db (bikedb) > ##D # don't forget to remove real data! > ##D # file.remove (list.files (data_dir, pattern = '.zip')) > ## End(Not run) > > > > ### *