Deploying to gh-pages from @ a1e766d 🚀

UrbanAnalyst · Oct 28, 2024 · 028e804 · 028e804
1 parent ab0aa14
commit 028e804
Show file tree

Hide file tree

Showing 39 changed files with 143 additions and 141 deletions.
diff --git a/.pre-commit-config.yaml b/.pre-commit-config.yaml
@@ -8,7 +8,7 @@ repos:
         args: [--style_pkg=spaceout, --style_fun=spaceout_style]    
         additional_dependencies:
         - ropensci-review-tools/spaceout
-    -   id: roxygenize
+      # -   id: roxygenize
     # codemeta must be above use-tidy-description when both are used
     # -   id: codemeta-description-updated
     -   id: use-tidy-description

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: gtfsrouter
 Title: Routing with 'GTFS' (General Transit Feed Specification) Data
-Version: 0.1.2.014
+Version: 0.1.2.018
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Marcin", "Stepniak", , "marcinstepniak@ucm.es", role = "aut",
@@ -18,6 +18,7 @@ Depends:
 Imports:
     cli,
     data.table,
+    fs,
     geodist,
     methods,
     Rcpp (>= 0.12.6)

diff --git a/NEWS.md b/NEWS.md
@@ -3,6 +3,7 @@
 ## Minor changes:
 
 - Fix bug with return values of traveltimes (#116; thanks to @FlxPo)
+- Use 'fs' package for all file path manipulations.
 
 ---
 

diff --git a/R/extract-gtfs.R b/R/extract-gtfs.R
@@ -89,7 +89,7 @@ unzip_gtfs <- function (filename, quiet = FALSE) {
         )
     }
 
-    flist <- utils::unzip (filename, exdir = tempdir ())
+    flist <- utils::unzip (filename, exdir = fs::path_temp ())
 
     if (!quiet) {
         message ("\r", cli::col_green (
@@ -106,7 +106,7 @@ check_extract_pars <- function (filename, stn_suffixes) {
     if (is.null (filename)) {
         stop ("filename must be given")
     }
-    if (!file.exists (filename)) {
+    if (!fs::file_exists (filename)) {
         stop ("filename ", filename, " does not exist")
     }
     if (!(is.null (stn_suffixes) || is.character (stn_suffixes))) {
@@ -191,7 +191,7 @@ extract_objs_into_env <- function (flist, quiet = FALSE) {
             value = fout,
             envir = e
         )
-        chk <- file.remove (flist [f]) # nolint
+        chk <- fs::file_delete (flist [f]) # nolint
     }
 
     if (!quiet) {

diff --git a/R/go_home_work.R b/R/go_home_work.R
@@ -104,7 +104,7 @@ go_home_work <- function (home = TRUE, wait, start_time) {
 
     vars <- get_envvars ()
     fname <- get_rds_name (vars$file)
-    if (!file.exists (fname)) {
+    if (!fs::file_exists (fname)) {
         stop (
             "This function requires the GTFS data to be pre-processed ",
             "with 'process_gtfs_local'."
@@ -145,7 +145,7 @@ get_envvars <- function () {
     }
 
     f <- (Sys.getenv ("gtfs_data"))
-    if (!file.exists (f)) {
+    if (!fs::file_exists (f)) {
         stop (
             "File ", f, " specified by environmental variable ",
             "'gtfs_data' does not exist"

diff --git a/R/transfers.R b/R/transfers.R
@@ -130,9 +130,9 @@ dl_net <- function (gtfs) {
     stops <- gtfs$stops [, c ("stop_lon", "stop_lat")]
     requireNamespace ("digest")
     hash <- digest::digest (stops)
-    net_name <- file.path (tempdir (), paste0 ("net", hash, ".Rds"))
+    net_name <- fs::path (fs::path_temp (), paste0 ("net", hash, ".Rds"))
 
-    if (!file.exists (net_name)) {
+    if (!fs::file_exists (net_name)) {
         requireNamespace ("dodgr")
         net <- dodgr::dodgr_streetnet_sc (pts = stops)
         saveRDS (net, file = net_name)

diff --git a/R/utils.R b/R/utils.R
@@ -21,7 +21,7 @@ berlin_gtfs_to_zip <- function () {
         si <- strsplit (i, ".txt") [[1]]
         res <- tryCatch (
             data.table::fwrite (f [[si]],
-                file.path (tempdir (), i),
+                fs::path (fs::path_temp (), i),
                 quote = TRUE
             ),
             error = function (e) e
@@ -33,10 +33,10 @@ berlin_gtfs_to_zip <- function () {
         stop ("Unable to write files to tempdir()")
     } # nocov
 
-    flist <- file.path (tempdir (), flist)
-    zipname <- file.path (tempdir (), "vbb.zip")
+    flist <- fs::path (fs::path_temp (), flist)
+    zipname <- fs::path (fs::path_temp (), "vbb.zip")
     utils::zip (zipname, files = flist, flags = "-q")
-    chk <- file.remove (flist)
+    chk <- fs::file_delete (flist)
 
     return (zipname)
 }

diff --git a/codemeta.json b/codemeta.json
@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/gtfsrouter",
   "issueTracker": "https://github.com/UrbanAnalyst/gtfsrouter/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.2.014",
+  "version": "0.1.2.018",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/articles/gtfsrouter.html b/docs/articles/gtfsrouter.html
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/articles/transfers.html b/docs/articles/transfers.html
diff --git a/docs/articles/traveltimes.html b/docs/articles/traveltimes.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -1,8 +1,8 @@
 pandoc: 3.1.11
-pkgdown: 2.1.0
+pkgdown: 2.1.1
 pkgdown_sha: ~
 articles:
   gtfsrouter: gtfsrouter.html
   transfers: transfers.html
   traveltimes: traveltimes.html
-last_built: 2024-08-21T09:06Z
+last_built: 2024-10-28T11:37Z
-Original file line number
+Diff line change
@@ Expand Up / @@ -3,6 +3,7 @@ @@
     ## Minor changes:
     - Fix bug with return values of traveltimes (#116; thanks to @FlxPo)
+    - Use 'fs' package for all file path manipulations.
     ---
@@ Expand Down @@