test gtfs2gps

test gtfs2gps.R

library(gtfs2gps)
library(gtfsrouter)


# original process
sp <- system.file("extdata/saopaulo.zip", package ="gtfs2gps")

time_gps <- system.time(gps_gps <- gtfs2gps(sp, parallel = T, spatial_resolution = 200))


# convert freq to stoptimes
sp_router <- extract_gtfs(filename = sp)
time_convertfreq <- system.time( gtfs_router <- gtfsrouter::frequencies_to_stop_times(sp_router) )

write_gtfs(gtfs_router, 'gtfs_router.zip')

time_router <- system.time(gps_router <- gtfs2gps('gtfs_router.zip', parallel = T, spatial_resolution = 200))




# compare computin time
time_gps
(time_router +  time_gps)

> time_gps
   user  system elapsed 
   7.07    1.47   40.18 
> (time_router +  time_gps)
   user  system elapsed 
  10.78    2.97   86.29