better solution for midnight trips about gtfs2gps

[Joaobazzo]

my idea

library(data.table)
library(magrittr)
# data
dt <- c("00:00:01","01:34:15","03:40:29","05:25:44","07:40:58","08:49:12",
        "10:31:26","12:19:40","14:21:55","15:42:09","17:22:23","19:27:37",
        "21:20:52","22:08:06","00:33:20","00:38:25") %>% data.table::as.ITime()
# analysis
aux <- as.numeric(dt)
aux1 <- shift(aux,n = 1, fill = 0,type = "lag")
diff <- aux - aux1  # difference
diff
#>  [1]      1   5654   7574   6315   8114   4094   6134   6494   7335   4814
#> [11]   6014   7514   6795   2834 -77686    305

# from position in which diff is negative until the last position
mod <- which(diff < 0):length(diff)
mod
#> [1] 15 16

# add one day (86400 s)
dt[mod] = 86400 + dt[mod] 
dt
#>  [1] "00:00:01" "01:34:15" "03:40:29" "05:25:44" "07:40:58" "08:49:12"
#>  [7] "10:31:26" "12:19:40" "14:21:55" "15:42:09" "17:22:23" "19:27:37"
#> [13] "21:20:52" "22:08:06" "24:33:20" "24:38:25"
dt <- as.numeric(dt)
dt
#>  [1]     1  5655 13229 19544 27658 31752 37886 44380 51715 56529 62543 70057
#> [13] 76852 79686 88400 88705

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