update working directory for temporary downloads

risk_yield_loss.R

@@ -292,12 +292,12 @@ if (!experiment %in% names(historical_remote_dir) ||
 ################################################################################
 ## Calculations of historical reference                                       ##
 # Download historical time series data
-if (!file.exists("output")) {
-  dir.create("output")
+if (!dir.exists("tmp")) {
+  dir.create("tmp")
 }
 hist_timeseries_filename <- download_yield_data(
   runtype = "historical",
-  localname = "output/hist_timeseries.nc",
+  localname = "tmp/hist_timeseries.nc",
   experiment = experiment,
   irrigation_scenario = NULL,
   fertilizer_scenario = NULL,
@@ -411,7 +411,7 @@ harvested_area_all_count <- array(0,
 for (wy in forecast_weather_options) {
   forecast_filename <- download_yield_data(
     runtype = "forecast",
-    localname = "output/forecast.nc",
+    localname = "tmp/forecast.nc",
     experiment = experiment,
     irrigation_scenario = irrigation_scenario,
     fertilizer_scenario = fertilizer_scenario,