diff --git a/R/import.R b/R/import.R index d663cd62..1c304c07 100644 --- a/R/import.R +++ b/R/import.R @@ -19,7 +19,7 @@ #' @importFrom dplyr %>% arrange summarise group_by inner_join #' @examples \donttest{ #' library(dplyr) -#' u1 <- "https://developers.google.com/transit/gtfs/examples/sample-feed.zip" +#' u1 <- "https://github.com/r-transit/tidytransit/raw/master/inst/extdata/sample-feed-fixed.zip" #' sample_gtfs <- read_gtfs(u1) #' attach(sample_gtfs) #' #list routes by the number of stops they have @@ -80,7 +80,7 @@ read_gtfs <- function(path, local = FALSE, #' @importFrom dplyr %>% arrange summarise group_by inner_join #' @examples \donttest{ #' library(dplyr) -#' u1 <- "https://developers.google.com/transit/gtfs/examples/sample-feed.zip" +#' u1 <- "https://github.com/r-transit/tidytransit/raw/master/inst/extdata/sample-feed-fixed.zip" #' sample_gtfs <- import_gtfs(u1) #' attach(sample_gtfs) #' #list routes by the number of stops they have diff --git a/tests/testthat/test-import-gtfs.R b/tests/testthat/test-import-gtfs.R index 37e2b254..fae5069f 100644 --- a/tests/testthat/test-import-gtfs.R +++ b/tests/testthat/test-import-gtfs.R @@ -26,7 +26,7 @@ test_that('Downloading a zip file from a gtfs_example_url returns a file', { skip("no internet, skipping") } else { - zip <- tidytransit:::download_from_url(gtfs_example_url) + zip <- tidytransit:::download_from_url(gtfs_example_url, quiet = T) expect_true(file.exists(zip)) }