From cea3f9a0e5fe4da9bf832a973b69b68dbc4b5682 Mon Sep 17 00:00:00 2001 From: DimitraVeropoulou Date: Mon, 16 Feb 2026 12:05:40 +0100 Subject: [PATCH] changed the path for cane supply too --- r_app/80_calculate_kpis.R | 2 +- r_app/80_utils_cane_supply.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/r_app/80_calculate_kpis.R b/r_app/80_calculate_kpis.R index a35c808..7619347 100644 --- a/r_app/80_calculate_kpis.R +++ b/r_app/80_calculate_kpis.R @@ -397,7 +397,7 @@ main <- function() { message(strrep("=", 70)) # Define variables needed for workflow functions - reports_dir <- setup$kpi_reports_dir + reports_dir <- file.path(setup$reports_dir, "kpis") data_dir <- setup$data_dir diff --git a/r_app/80_utils_cane_supply.R b/r_app/80_utils_cane_supply.R index b8ef588..bceaa5d 100644 --- a/r_app/80_utils_cane_supply.R +++ b/r_app/80_utils_cane_supply.R @@ -536,7 +536,7 @@ calculate_field_analysis_cane_supply <- function(setup, message("CANE_SUPPLY WORKFLOW: PER-FIELD ANALYSIS (Script 91 compatible)") message(strrep("=", 70)) - reports_dir <- setup$kpi_reports_dir + reports_dir <- file.path(setup$reports_dir, "kpis") # ========== PHASE 1: WEEKLY ANALYSIS SETUP ========== message("\n", strrep("-", 70))