fix 'm4ra_cache_dir' when city dir doesn't exist

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: m4ra
 Title: Many-to-Many Multi-Modal Routing Aggregator
-Version: 0.1.1.048
+Version: 0.1.1.049
 Authors@R: 
     person(given = "Mark",
            family = "Padgham",

R/cache.R

@@ -40,7 +40,12 @@ m4ra_cache_dir <- function (city = NULL) {
     if (!is.null (city)) {
         checkmate::assert_character (city, len = 1L)
         flist <- fs::dir_ls (cache_dir, type = "directory", recurse = TRUE)
-        cache_dir <- flist [which (basename (flist) == city)]
+        if (!is.null (flist)) {
+            cache_dir <- fs::path (cache_dir, city)
+            fs::dir_create (cache_dir, recurse = TRUE)
+        } else {
+            cache_dir <- flist [which (basename (flist) == city)]
+        }
         if (length (cache_dir) == 0L) {
             cache_dir <- fs::path (Sys.getenv ("M4RA_CACHE_DIR"), city)
         }

codemeta.json

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