ggplot2 depreciation warning

phenomecentre · Dec 11, 2022 · 8929d1b · 8929d1b
1 parent 6c1bf60
commit 8929d1b
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/plotHistogram.R b/R/plotHistogram.R
@@ -19,7 +19,7 @@ plotHistogram <- function(var, varName = "Variable", density = TRUE, ...) {
     # with density
     if (density) {
         p_hist <- p_hist +
-                    ggplot2::geom_histogram(ggplot2::aes(y = ..density..),
+                    ggplot2::geom_histogram(ggplot2::aes(y=ggplot2::after_stat(density)),
                         colour = "black", fill = "white", ...) +
                     ggplot2::geom_density(alpha = 0.1, fill = "blue")
         # without density

diff --git a/R/zzz.R b/R/zzz.R
@@ -6,7 +6,7 @@
         utils::globalVariables(
         # data.frame column names used in ggplot (cannot use aes_string due to
         # transformations to the column in aes())
-        c("x","y","colr","..density..","rt","int","specID", "rt_dev_sec",
+        c("x","y","colr","rt","int","specID", "rt_dev_sec",
         "isReference", "predictedRtDrift")
         )
         invisible()

diff --git a/inst/NEWS b/inst/NEWS
@@ -1,4 +1,5 @@
 Changes in version 1.13.1 (2022-12-11)
 - Bugfix: plotHistogram changing warning message
 - Bugfix: peakPantheR_plotPeakwidth issue due to ggplot2 behaviour changes for
-    date axis
+    date axis
+- Depreciation warning from ggplot2 `..density..` to `after_stat()`