From da563e25c109e694d51306de9789670a4db61c7e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christoph=20Sch=C3=BCrz?= <christoph.schuerz@ufz.de>
Date: Mon, 27 Mar 2023 14:32:35 +0200
Subject: [PATCH] Minor fix in filter_hru_at_harvkill()
---
R/plot_mgt_harv.R | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/R/plot_mgt_harv.R b/R/plot_mgt_harv.R
index ee22f57..d70fe95 100644
--- a/R/plot_mgt_harv.R
+++ b/R/plot_mgt_harv.R
@@ -181,9 +181,10 @@ filter_hru_at_harvkill <- function(sim_verify, ...) {
sim_verify$mgt_out %>%
mutate(date = ymd(paste(year, mon, day, sep = '-'))) %>%
filter(operation == 'HARVEST') %>%
- select(hru, date, op_typ, phuplant, plant_bioms, op_var, var4, var5, var3, var1, var2) %>%
- set_names(c('hru', 'date', 'crop', 'phu', 'plant_bioms', 'yield', 'water_stress', 'aero_stress',
+ select(hru, year, date, op_typ, phuplant, plant_bioms, op_var, var4, var5, var3, var1, var2) %>%
+ set_names(c('hru','year' , 'date', 'crop', 'phu', 'plant_bioms', 'yield', 'water_stress', 'aero_stress',
'temp_stress', 'n_stress', 'p_stress')) %>%
- filter(., ...)
+ filter(., ...) %>%
+ select(-year)
}
--
GitLab