check update_dt function about gtfs2gps

[rafapereirabr]

@Joaobazzo , it seems your last Pull Request broke something in the package, particularly in the vigntte. Please have a look. https://travis-ci.org/ipeaGIT/gtfs2gps

[Joaobazzo]

library(patchwork)
library(ggplot2)
poa <- gtfs2gps::read_gtfs(system.file("extdata/poa.zip", package="gtfs2gps"))

fromgtfs <- poa$stop_times[!is.na(departure_time),.(departure_time)]
fromgtfs[,hora := stringr::str_sub(departure_time,1,2)]
table(fromgtfs$hora)
#> 
#> 00 01 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 
#> 11  1  9 31 42 53 54 39 40 42 44 45 41 48 49 58 47 37 31 25 27
p1 <- ggplot(data = fromgtfs,aes(x = hora)) + 
  geom_histogram(stat = "count",bins = 24)
#> Warning: Ignoring unknown parameters: binwidth, bins, pad

poa2 <- gtfs2gps::gtfs2gps(poa)
#> Converting shapes to sf objects
#> Linking to GEOS 3.6.2, GDAL 2.2.3, PROJ 4.9.3
#> Using 1 CPU core
#> Processing the data
poa2[,hora := stringr::str_sub(departure_time,1,2)]

table(poa2$hora)
#> 
#>     00     01     05     06     07 
#>   4890   1730 233436 324541 195696

p2 <- ggplot(data = poa2,aes(x = hora)) + 
  geom_histogram(stat = "count",bins = 24)
#> Warning: Ignoring unknown parameters: binwidth, bins, pad
pf <- p1 / p2
pf

^{Created on 2020-03-27 by the reprex package (v0.3.0)}