Fix regression in plot_effect()

description

In the previous version plot_effect() only showed two lines by default, not the four it did before that. This merge restores the original behaviour.

system details

• RStudio Version: 1.2.5033
• R Version: 3.5.2
• OS Version: Windows 10

checklist

• This merge includes bug fixes or changes in the functionality of the package (whether they are user-visible or not).
  • update documentation including examples (if necessary)
  • update and polish NEWS.md
  • update version in DESCRIPTION
  • update date in DESCRIPTION
• This merge introduces new features.
  • new features are documented
  • new features have tests
• no remaining TODO, FIXME, or debug prints anywhere in the source files
• devtools::document()
• devtools::check() without errors or warnings

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) {