Adds explicit ggplot2::after_stat

eliocamp · Mar 23, 2023 · 96cf1ec · 96cf1ec
1 parent 73265d0
commit 96cf1ec
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/stat_contour2.r b/R/stat_contour2.r
@@ -58,7 +58,7 @@ stat_contour2 <- function(mapping = NULL, data = NULL,
 #' @export
 StatContour2 <- ggplot2::ggproto("StatContour2", ggplot2::Stat,
   required_aes = c("x", "y", "z"),
-  default_aes = ggplot2::aes(order = after_stat(level)),
+  default_aes = ggplot2::aes(order = ggplot2::after_stat(level)),
   dropped_aes = "z",
   setup_params = function(data, params) {
     if (is.null(params$global) || isTRUE(params$global.breaks)) {
@@ -346,7 +346,7 @@ setup_breaks <- function(data, breaks, bins, binwidth) {
 #' @export
 StatTextContour <- ggplot2::ggproto("StatTextContour", StatContour2,
   required_aes = c("x", "y", "z"),
-  default_aes = ggplot2::aes(order = after_stat(level), label = after_stat(level)),
+  default_aes = ggplot2::aes(order = ggplot2::after_stat(level), label = ggplot2::after_stat(level)),
   dropped_aes = "z"
 )
 
diff --git a/R/stat_contour_fill.R b/R/stat_contour_fill.R
@@ -39,7 +39,7 @@ stat_contour_fill <- function(mapping = NULL, data = NULL,
 #' @export
 StatContourFill <- ggplot2::ggproto("StatContourFill", ggplot2::Stat,
     required_aes = c("x", "y", "z"),
-    default_aes = ggplot2::aes(fill = after_stat(level_mid), order = after_stat(level)),
+    default_aes = ggplot2::aes(fill = ggplot2::after_stat(level_mid), order = ggplot2::after_stat(level)),
     dropped_aes = "z",
     setup_params = function(data, params) {
         if (is.null(params$global) || isTRUE(params$global.breaks)) {