diff --git a/DESCRIPTION b/DESCRIPTION index c562e85d568d06947446edd506195fca31e0cdb5..5843cdfb7d810b0b76c3be75dc122785285936ec 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 cb75c1f636ec452541aae0719081e2b9e98648f7..53a54a443700e2e20e02e626d2ff04a53d7062e7 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 7fa995dd952e3042e9e0a95f07dde5bdaf64f19c..5af14e08bb118822362c61318616a0eae74662dc 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) {