Commit 6c140833 authored by Sebastian Ostberg's avatar Sebastian Ostberg
Browse files

update output directory

parent 646a5f0c
......@@ -824,15 +824,17 @@ risk_category_var <- ncvar_def(
)
# Generate output NetCDF files
if (!dir.exists("../output"))
dir.create("../output")
# First file
print(
paste(
"Save gridded yield loss risk indicator variable to",
"output/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,
......@@ -843,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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment