fix future normals path to include gcm + ssp

PredictiveEcology · Mar 14, 2024 · 73dfd30 · 73dfd30
1 parent 69743d6
commit 73dfd30
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -3,8 +3,8 @@ Title: Utilities For Working With North American Climate Data
 Description: Utilities for working with North American climate data from
     'ClimateNA' <https://climatena.ca/>.
 URL: https://github.com/PredictiveEcology/climateData
-Date: 2024-03-09
-Version: 2.0.2
+Date: 2024-03-13
+Version: 2.0.3
 Authors@R: c(
     person("Alex M", "Chubaty", email = "[email protected]",
            role = c("aut", "cre"), comment = c(ORCID = "0000-0001-7146-8135")),

diff --git a/R/ClimateNA_createTiles.R b/R/ClimateNA_createTiles.R
@@ -120,7 +120,7 @@ ClimateNA_path <- function(dataPath, tile = NULL, type = NULL, msy = NULL, gcm =
     historic = file.path(dataPath, "historic", MSY, tile),
     historic_normals = file.path(dataPath, "historic", "normals", MSY, tile),
     future = file.path(dataPath, "future", paste0(gcm, "_ssp", ssp), MSY, tile),
-    future_normals = file.path(dataPath, "future", "normals", MSY, tile)
+    future_normals = file.path(dataPath, "future",  paste0(gcm, "_ssp", ssp), "normals", MSY, tile)
   ) |>
     normalizePath(mustWork = FALSE) |>
     (function(x) {