fix batch_filename fn

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: uaengine
 Title: Routing and aggregation engine for 'Urban Analyst'
-Version: 0.3.2.014
+Version: 0.3.2.015
 Authors@R: 
     person(given = "Mark",
            family = "Padgham",

R/ua-batch.R

@@ -202,16 +202,14 @@ batch_start_message <- function () {
 
 #' @param index One list element of the full `index` generated by
 #' `get_vertex_indices()`.
+#'
+#' @param results_path Path to city sub-directory of UA results directory.
 #' @noRd
 get_batch_filename <- function (results_path, city, index) {
 
     ival <- max (index)
     f <- paste0 (city, "-", sprintf ("%06i", ival), ".Rds")
-    city_dir <- fs::path_abs (fs::path (results_path, city))
-    if (!fs::dir_exists (city_dir)) {
-        fs::dir_create (city_dir)
-    }
-    f <- fs::path_abs (fs::path (city_dir, f))
+    f <- fs::path_abs (fs::path (results_path, f))
 
     return (f)
 }

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/uaengine",
   "issueTracker": "https://github.com/UrbanAnalyst/uaengine/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.3.2.014",
+  "version": "0.3.2.015",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",