Running 'testthat.R' [48s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(bikedata)
  Data for London, U.K. powered by TfL Open Data:
    Contains OS data <U+24B8> 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
  > 
  > test_check("bikedata")
    adding: temp/RtmpaAoTuv/Divvy_Trips_sample/ (stored 0%)
    adding: temp/RtmpaAoTuv/Divvy_Trips_sample/Divvy_Stations.csv (deflated 69%)
    adding: temp/RtmpaAoTuv/Divvy_Trips_sample/Divvy_Trips_sample.csv (deflated 79%)
    adding: temp/RtmpaAoTuv/201604-hubway-tripdata.csv (deflated 84%)
    adding: temp/RtmpaAoTuv/2017-Q1-Trips-History-Data.csv (deflated 78%)
    adding: temp/RtmpaAoTuv/la_metro_gbfs_trips_Q1_2017.csv (deflated 85%)
    adding: temp/RtmpaAoTuv/01aJourneyDataExtract10Jan16-23Jan16.csv (deflated 74%)
    adding: temp/RtmpaAoTuv/201612-citibike-tripdata.csv (deflated 74%)
  -- 1. Error: write and store data (@test-store-data.R#44)  ---------------------
  Index out of bounds: [index='id'].
  1: expect_silent(n <- store_bikedata(data_dir = tempdir(), bikedb = bikedb, quiet = TRUE)) at testthat/test-store-data.R:44
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: store_bikedata(data_dir = tempdir(), bikedb = bikedb, quiet = TRUE)
  10: rcpp_import_stn_df(bikedb, lo_stns, "lo")
  
  == testthat results  ===========================================================
  OK: 139 SKIPPED: 1 FAILED: 1
  1. Error: write and store data (@test-store-data.R#44) 
  
  Error: testthat unit tests failed
  Execution halted