Skip to content
Snippets Groups Projects
Commit 993da0e9 authored by Sebastian Henz's avatar Sebastian Henz
Browse files

Restore behaviour of plot_effect() to show four curves by default

parent 1ffd1f5b
No related branches found
No related tags found
1 merge request!20Fix regression in plot_effect()
Pipeline #2843 passed with stage
in 9 minutes and 25 seconds
Package: stressaddition Package: stressaddition
Type: Package Type: Package
Title: Modeling Tri-Phasic Concentration-Response Relationships Title: Modeling Tri-Phasic Concentration-Response Relationships
Version: 2.1.0.9000 Version: 2.1.1
Date: 2020-02-25 Date: 2020-02-26
Authors@R: person("Sebastian", "Henz", role = c("aut", "cre"), Authors@R: person("Sebastian", "Henz", role = c("aut", "cre"),
email = "sebastian.henz@ufz.de", email = "sebastian.henz@ufz.de",
comment = c(ORCID = "0000-0001-8299-8852")) comment = c(ORCID = "0000-0001-8299-8852"))
......
# 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 # stressaddition 2.1.0
......
...@@ -11,9 +11,9 @@ plot_effect <- function(model, ...@@ -11,9 +11,9 @@ plot_effect <- function(model,
curve_names <- names(model$curves) curve_names <- names(model$curves)
valid_names <- curve_names[startsWith(curve_names, "effect")] valid_names <- curve_names[startsWith(curve_names, "effect")]
if (is.null(which)) { if (is.null(which)) {
which <- c("effect_tox_sys") which <- c("effect_tox", "effect_tox_sys")
if (model$with_env) { 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) { } else if ("all" %in% which) {
if (length(which) == 1) { if (length(which) == 1) {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment