From 993da0e98d559fec1c9a794e45b161c07c8103e9 Mon Sep 17 00:00:00 2001
From: Sebastian Henz <sebastian.henz@ufz.de>
Date: Wed, 26 Feb 2020 11:15:51 +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, 7 insertions(+), 5 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index c562e85..5843cdf 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
Package: stressaddition
Type: Package
Title: Modeling Tri-Phasic Concentration-Response Relationships
-Version: 2.1.0.9000
-Date: 2020-02-25
+Version: 2.1.1
+Date: 2020-02-26
Authors@R: person("Sebastian", "Henz", role = c("aut", "cre"),
email = "sebastian.henz@ufz.de",
comment = c(ORCID = "0000-0001-8299-8852"))
diff --git a/NEWS.md b/NEWS.md
index cb75c1f..53a54a4 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,6 @@
-# stressaddition (development version)
+# stressaddition 2.1.1
+
+* Restore the default behaviour of `plot_effect()` to also show `effect_tox` and `effect_tox_env`.
# stressaddition 2.1.0
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