[WIP] more future_normals adjustments

PredictiveEcology · Mar 14, 2024 · ed91df1 · ed91df1
1 parent ec9c51b
commit ed91df1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/data-raw/03-ClimateNA_future_normals.R b/data-raw/03-ClimateNA_future_normals.R
@@ -51,13 +51,13 @@ new_rows_futu_normals <- future_lapply(dem_ff, function(f) {
 
   z <- lapply(MSYs, function(msy) {
     lapply(future_nrm, function(nrm) {
-      ClimateNAout <- ClimateNA_path(ClimateNAdata, tile = tile, type = climateType, msy = msy)
+      ClimateNAout <- ClimateNA_path(ClimateNAdata, tile = tile, type = climateType, msy, gcm, ssp)
 
       period <- substr(nrm, 8, 16)
 
       row <- dplyr::filter(
         climate_futu_normals_df,
-        msy == !!msy & period == !!period & tileid == !!tile
+        gcm == !!gcm & ssp == !!ssp & msy == !!msy & period == !!period & tileid == !!tile
       ) |>
         collect()