library(gtfsr)
context('Converting GTFS routes and shapes into simple feature (sf) dataframes')
not_working <- function() {
url <- "http://data.trilliumtransit.com/gtfs/duke-nc-us/duke-nc-us.zip"
connecting <- function(url) {
r <- base::try(httr::GET(url, httr::timeout(5)))
if(!assertthat::is.error(r)) r$status_code == 200 else FALSE
}
connecting(url)
}
check_url <- function() {
if (not_working()) {
skip("Test URL not available.")
}
}
url <- "http://data.trilliumtransit.com/gtfs/duke-nc-us/duke-nc-us.zip"
gtfs_obj <- url %>% import_gtfs(quiet=TRUE)
# convert_gtfs_routes_to_sf()
test_that('Can convert a gtfsr routes dataframe to a simple features dataframe', {
expect_is(routes_df_as_sf(gtfs_obj), 'sf')
})
test_that('Can convert a gtfsr stops dataframe to a simple features dataframe', {
expect_is(stops_df_as_sf(gtfs_obj$stops_df), 'sf')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.