From a92670cc5f12d7007bcf75d9ffa1d0e2003ddd02 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christoph=20Sch=C3=BCrz?= <christoph.schuerz@ufz.de>
Date: Thu, 30 Mar 2023 11:59:16 +0200
Subject: [PATCH] Minor fix for list of sims in plot_variable_at_harvkill
---
R/plot_mgt_harv.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/plot_mgt_harv.R b/R/plot_mgt_harv.R
index 3c8b9eb..4590130 100644
--- a/R/plot_mgt_harv.R
+++ b/R/plot_mgt_harv.R
@@ -38,20 +38,20 @@ plot_variable_at_harvkill <- function(sim_verify, variable, years = 1900:2100) {
is_list_sim <- "mgt_out" %in% names(sim_verify[[1]])
if(is_single_sim){
years <- years[years >= min(sim_verify$basin_wb_day$yr)]
-
tbl_harv <- prepare_var_at_harvkill(sim_verify$mgt_out, years, variable)
} else if (is_list_sim){
+ years <- years[years >= min(sim_verify[[1]]$basin_wb_day$yr)]
df <- NULL
nn <- c()
for(n in names(sim_verify)){
mgt_out <- sim_verify[[n]][["mgt_out"]]
tbl_harv <- prepare_var_at_harvkill(mgt_out, years, variable)
- tbl_harv$name <- n
+ tbl_harv$simulation <- n
nn <- c(nn, n)
if(is.null(df)){df <- tbl_harv} else {df <- bind_rows(df, tbl_harv)}
}
tbl_harv <- df %>%
- mutate(name = factor(name, levels = nn))
+ mutate(simulation = factor(simulation, levels = nn))
} else {
stop('Incorrect input for sim_verify')
}
--
GitLab