# NOT RUN {
library(dplyr)
fortaleza <- system.file("extdata/fortaleza.zip", package = "gtfs2gps")
srtmfile <- system.file("extdata/fortaleza-srtm.tif", package = "gtfs2gps")
gtfs <- read_gtfs(fortaleza) %>%
filter_week_days() %>%
filter_single_trip() %>%
remove_invalid()
fortaleza_gps <- gtfs2gps(gtfs) %>% append_height(srtmfile)
# }
Run the code above in your browser using DataLab