change url in documentation

When people run example code, they shouldn't receive an error
r-transit · Nov 7, 2018 · d83ca76 · d83ca76
1 parent 6f258e6
commit d83ca76
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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))
   }