From 09075a63818d97a81062654ecb1ba81b4810dda4 Mon Sep 17 00:00:00 2001
From: Sebastian Henz <sebastian.henz@ufz.de>
Date: Fri, 28 Feb 2020 10:30:40 +0100
Subject: [PATCH] Quick renaming of the non-exported function
`adjust_smooth_concentrations` to `adjust_plot_concentrations`.
---
DESCRIPTION | 2 +-
R/helpers.R | 8 ++++----
R/plot_effect.R | 2 +-
R/plot_stress.R | 2 +-
4 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index ae78b57..067dcb6 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: stressaddition
Type: Package
Title: Modeling Tri-Phasic Concentration-Response Relationships
Version: 2.2.0
-Date: 2020-02-27
+Date: 2020-02-28
Authors@R: c(person("Sebastian",
"Henz",
role = c("aut", "cre"),
diff --git a/R/helpers.R b/R/helpers.R
index 1b9fea3..a34ae96 100644
--- a/R/helpers.R
+++ b/R/helpers.R
@@ -33,11 +33,11 @@ get_log_ticks <- function(x) {
}
-adjust_smooth_concentrations <- function(model) {
+adjust_plot_concentrations <- function(model) {
# Helper for the plot functions, not exported.
- # Deals with the concentrations which are unnecessary for plotting.
- # This means it removes the concentrations in the gap and scales the
- # concentrations left of the gap up.
+ # Deals with the concentrations which are unnecessary for plotting. This
+ # means it removes the concentrations in the gap and increases the
+ # concentrations left of the gap.
curves <- model$curves
gap_idx <- min(which(!curves$use_for_plotting))
diff --git a/R/plot_effect.R b/R/plot_effect.R
index 5af14e0..b9075a1 100644
--- a/R/plot_effect.R
+++ b/R/plot_effect.R
@@ -30,7 +30,7 @@ plot_effect <- function(model,
which <- which[which %in% valid_names]
}
- temp <- adjust_smooth_concentrations(model)
+ temp <- adjust_plot_concentrations(model)
curves <- temp$curves
log_ticks <- get_log_ticks(curves$concentration)
concentration <- c(curves$concentration[1], model$args$concentration[-1])
diff --git a/R/plot_stress.R b/R/plot_stress.R
index 7fc70f8..62979cd 100644
--- a/R/plot_stress.R
+++ b/R/plot_stress.R
@@ -35,7 +35,7 @@ plot_stress <- function(model,
}
}
- temp <- adjust_smooth_concentrations(model)
+ temp <- adjust_plot_concentrations(model)
curves <- temp$curves
log_ticks <- get_log_ticks(curves$concentration)
concentration <- c(curves$concentration[1], model$args$concentration[-1])
--
GitLab