update output path again

risk_yield_loss.R

@@ -824,17 +824,17 @@ risk_category_var <- ncvar_def(
 )
                           
 # Generate output NetCDF files
-if (!dir.exists("output"))
-  dir.create("output")
+if (!dir.exists("../output"))
+  dir.create("../output")
 # First file
 print(
   paste(
     "Save gridded yield loss risk indicator variable to",
-    "utput/yield_loss_risk.nc"
+    "../output/yield_loss_risk.nc"
   )
 )
 nc <- nc_create(
-  filename = "output/yield_loss_risk.nc",
+  filename = "../output/yield_loss_risk.nc",
   vars = list(
     yield_loss_risk_var,
     crop_var,
@@ -845,11 +845,11 @@ nc <- nc_create(
 print(
   paste(
     "Save gridded crop area at risk variable to",
-    "output/harvested_area_at_risk.nc"
+    "../output/harvested_area_at_risk.nc"
   )
 )
 nc2 <- nc_create(
-  filename = "output/harvested_area_at_risk.nc",
+  filename = "../output/harvested_area_at_risk.nc",
   vars = list(
     harvested_area_var,
     crop_var,