rename google_transit_nyc_subway.zip to nyc_subway.zip

r-transit · Oct 17, 2024 · c63f3d9 · c63f3d9
1 parent 494619e
commit c63f3d9
Show file tree

Hide file tree

Showing 27 changed files with 29 additions and 29 deletions.
diff --git a/R/filters.R b/R/filters.R
@@ -8,7 +8,7 @@
 #' @export
 #' @examples \donttest{
 #' library(dplyr)
-#' local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' nyc <- read_gtfs(local_gtfs_path)
 #' select_service_id <- filter(nyc$calendar, monday==1) %>% pull(service_id)
 #' select_route_id <- sample_n(nyc$routes, 1) %>% pull(route_id)

diff --git a/R/geo.R b/R/geo.R
@@ -13,7 +13,7 @@
 #' \dontrun{
 #' library(dplyr)
 #' 
-#' nyc_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' nyc_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' nyc <- read_gtfs(nyc_path)
 #' 
 #' nyc$stops %>%
@@ -103,7 +103,7 @@ prep_dist_mtrx = function(dist_list) {
 #' \dontrun{
 #' library(dplyr)
 #' 
-#' nyc_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' nyc_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' nyc <- read_gtfs(nyc_path)
 #' 
 #' stop_group_distances(nyc$stops)
@@ -185,7 +185,7 @@ stop_group_distances = function(gtfs_stops, by = "stop_name") {
 #' @importFrom stats kmeans
 #' @examples \donttest{
 #' library(dplyr)
-#' nyc_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' nyc_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' nyc <- read_gtfs(nyc_path)
 #' nyc <- cluster_stops(nyc)
 #' 

diff --git a/R/io.R b/R/io.R
@@ -17,7 +17,7 @@
 #' @seealso [validate_gtfs()], [write_gtfs()]
 #'
 #' @examples \dontrun{
-#' local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' gtfs <- read_gtfs(local_gtfs_path)
 #' summary(gtfs)
 #'

diff --git a/R/plot.R b/R/plot.R
@@ -6,7 +6,7 @@
 #'
 #' @examples \donttest{
 #' local_gtfs_path <- system.file("extdata",
-#'                               "google_transit_nyc_subway.zip",
+#'                               "nyc_subway.zip",
 #'                               package = "tidytransit")
 #' nyc <- read_gtfs(local_gtfs_path)
 #' plot(nyc)

diff --git a/R/raptor.R b/R/raptor.R
@@ -50,7 +50,7 @@
 #' @import data.table
 #' @export
 #' @examples \donttest{
-#' nyc_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' nyc_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' nyc <- read_gtfs(nyc_path)
 #'
 #' # you can use initial walk times to different stops in walking distance (arbitrary example values)

diff --git a/R/summary.R b/R/summary.R
@@ -10,7 +10,7 @@
 #'
 #' @examples  \dontrun{
 #' path = system.file("extdata", 
-#'            "google_transit_nyc_subway.zip", 
+#'            "nyc_subway.zip", 
 #'            package = "tidytransit")
 #'
 #' g = read_gtfs(path)

diff --git a/R/travel_times.R b/R/travel_times.R
@@ -69,7 +69,7 @@
 #'
 #' # 2) separate filtering and travel time calculation for a more granular analysis
 #' # stop_names in this feed are not restricted to an area, create clusters of stops to fix
-#' nyc_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' nyc_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' nyc <- read_gtfs(nyc_path)
 #' nyc <- cluster_stops(nyc, group_col = "stop_name", cluster_colname = "stop_name")
 #' 

diff --git a/R/validate_gtfs.R b/R/validate_gtfs.R
@@ -60,7 +60,7 @@
 #' #> # 2 more variables: validation_status <chr>, validation_details <chr>
 #' 
 #' \dontrun{
-#' local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+#' local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 #' gtfs <- read_gtfs(local_gtfs_path)
 #' attr(gtfs, "validation_result")
 #'

diff --git a/inst/extdata/google_transit_nyc_subway.zip → inst/extdata/nyc_subway.zip b/inst/extdata/google_transit_nyc_subway.zip → inst/extdata/nyc_subway.zip
diff --git a/man/cluster_stops.Rd b/man/cluster_stops.Rd
diff --git a/man/filter_stops.Rd b/man/filter_stops.Rd
diff --git a/man/plot.tidygtfs.Rd b/man/plot.tidygtfs.Rd
diff --git a/man/print.tidygtfs.Rd b/man/print.tidygtfs.Rd
diff --git a/man/raptor.Rd b/man/raptor.Rd
diff --git a/man/read_gtfs.Rd b/man/read_gtfs.Rd
diff --git a/man/stop_distances.Rd b/man/stop_distances.Rd
diff --git a/man/stop_group_distances.Rd b/man/stop_group_distances.Rd
diff --git a/man/travel_times.Rd b/man/travel_times.Rd
diff --git a/man/validate_gtfs.Rd b/man/validate_gtfs.Rd
diff --git a/tests/testthat/test-read-gtfs.R b/tests/testthat/test-read-gtfs.R
@@ -14,7 +14,7 @@ test_that("read_gtfs() imports a local file to a list of
 
 test_that("reading a real feed", {
   skip_on_cran()
-  g_nyc_path = system.file("extdata", "google_transit_nyc_subway.zip", 
+  g_nyc_path = system.file("extdata", "nyc_subway.zip", 
                            package = "tidytransit")
   gtfs_obj = read_gtfs(g_nyc_path)
 

diff --git a/tests/testthat/test-spatial.R b/tests/testthat/test-spatial.R
@@ -149,7 +149,7 @@ test_that("stop_group_distances", {
 
 test_that("stop_group_distances real feed", {
   skip_on_cran()
-  g_nyc = read_gtfs(system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit"))
+  g_nyc = read_gtfs(system.file("extdata", "nyc_subway.zip", package = "tidytransit"))
 
   x1 = stop_group_distances(g_nyc$stops)
 
@@ -170,7 +170,7 @@ test_that("stop_group_distances real feed", {
 test_that("stops cluster", {
   skip_on_cran()
 
-  g_nyc = read_gtfs(system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit"))
+  g_nyc = read_gtfs(system.file("extdata", "nyc_subway.zip", package = "tidytransit"))
   g_nyc2 <- filter_feed_by_area(g_nyc, c(-74.0144, 40.7402, -73.9581, 40.7696))
 
   x1 = cluster_stops(g_nyc2$stops)

diff --git a/tests/testthat/test-travel_times.R b/tests/testthat/test-travel_times.R
@@ -158,7 +158,7 @@ test_that("feed without transfers", {
 
 test_that("nyc feed", {
   skip_on_cran()
-  nyc_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+  nyc_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
   nyc <- read_gtfs(nyc_path)
 
   .child_index = which(nyc$stops$location_type == 0)

diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -80,7 +80,7 @@ test_that("filter_feed with shapes", {
 
 test_that("filter_feed_by_date", {
   skip_on_cran()
-  g0 = read_gtfs(system.file("extdata", "google_transit_nyc_subway.zip",
+  g0 = read_gtfs(system.file("extdata", "nyc_subway.zip",
                              package = "tidytransit"))
   g1 = filter_feed_by_date(g0, "2018-06-28")
   g2 = filter_feed_by_date(g0, "2018-10-30")

diff --git a/vignettes/frequency.Rmd b/vignettes/frequency.Rmd
@@ -50,7 +50,7 @@ We'll start by importing a snapshot of the NYC MTA's subway schedule, which is i
 with the package when [installed](https://r-transit.github.io/tidytransit/index.html#installation).  
 
 ```{r}
-local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 gtfs <- read_gtfs(local_gtfs_path)
 ```
 

diff --git a/vignettes/introduction.Rmd b/vignettes/introduction.Rmd
@@ -74,7 +74,7 @@ section on "Finding More GTFS Feeds" for more sources of feeds.
 # nyc <- read_gtfs("http://web.mta.info/developers/data/nyct/subway/google_transit.zip")
 
 local_gtfs_path <- system.file("extdata", 
-                               "google_transit_nyc_subway.zip", 
+                               "nyc_subway.zip", 
                                package = "tidytransit")
 nyc <- read_gtfs(local_gtfs_path)
 ```

diff --git a/vignettes/servicepatterns.Rmd b/vignettes/servicepatterns.Rmd
@@ -39,7 +39,7 @@ as a sample feed with tidytransit but you can read it directly from the MTA's we
 that some routes and services have been removed from the feed to reduce package size.
 
 ```{r}
-local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 gtfs <- read_gtfs(local_gtfs_path)
 # gtfs <- read_gtfs("http://web.mta.info/developers/data/nyct/subway/google_transit.zip")
 ```

diff --git a/vignettes/timetable.Rmd b/vignettes/timetable.Rmd
@@ -26,7 +26,7 @@ We use a feed from the New York Metropolitan Transportation Authority. It is pro
 sample feed with tidytransit but you can read it directly from the MTA's website. 
 
 ```{r}
-local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit")
+local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
 gtfs <- read_gtfs(local_gtfs_path)
 # gtfs <- read_gtfs("http://web.mta.info/developers/data/nyct/subway/google_transit.zip")
 ```