From db3abaea6330b5029f0507896522176ee6004c8c Mon Sep 17 00:00:00 2001
From: Sebastian Henz <sebastian.henz@ufz.de>
Date: Wed, 26 Feb 2020 11:28:23 +0100
Subject: [PATCH] Restore behaviour of plot_effect() to show four curves by
default
---
DESCRIPTION | 4 ++--
NEWS.md | 4 ++++
R/plot_effect.R | 4 ++--
3 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 9ced876..e96c337 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
Package: stressaddition
Type: Package
Title: Modeling Tri-Phasic Concentration-Response Relationships
-Version: 2.1.0
-Date: 2020-02-25
+Version: 2.1.1
+Date: 2020-02-26
Authors@R: c(person("Sebastian",
"Henz",
role = c("aut", "cre"),
diff --git a/NEWS.md b/NEWS.md
index 012fd68..53a54a4 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,7 @@
+# stressaddition 2.1.1
+
+* Restore the default behaviour of `plot_effect()` to also show `effect_tox` and `effect_tox_env`.
+
# stressaddition 2.1.0
* The functions `plot_effect()` and `plot_stress()` gain a `which` argument that controls which curves are plotted. Consequently, the `show_LL5_model` argument of `plot_effect()` was removed.
diff --git a/R/plot_effect.R b/R/plot_effect.R
index 7fa995d..5af14e0 100644
--- a/R/plot_effect.R
+++ b/R/plot_effect.R
@@ -11,9 +11,9 @@ plot_effect <- function(model,
curve_names <- names(model$curves)
valid_names <- curve_names[startsWith(curve_names, "effect")]
if (is.null(which)) {
- which <- c("effect_tox_sys")
+ which <- c("effect_tox", "effect_tox_sys")
if (model$with_env) {
- which <- c(which, "effect_tox_env_sys")
+ which <- c(which, "effect_tox_env", "effect_tox_env_sys")
}
} else if ("all" %in% which) {
if (length(which) == 1) {
--
GitLab