Merge pull request #106 from larmarange/width_prop

Update stat_prop() (parameter width not exposed)

Author: larmarange

DESCRIPTION

@@ -53,7 +53,7 @@ Suggests:
     vdiffr
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Roxygen: list(markdown = TRUE)
 Config/testthat/edition: 3
 Language: en-US

R/stat_prop.R

@@ -83,7 +83,6 @@ stat_prop <- function(mapping = NULL,
                       geom = "bar",
                       position = "fill",
                       ...,
-                      width = NULL,
                       na.rm = FALSE,
                       orientation = NA,
                       show.legend = NA,
@@ -93,7 +92,6 @@ stat_prop <- function(mapping = NULL,
   params <- list(
     na.rm = na.rm,
     orientation = orientation,
-    width = width,
     complete = complete,
     default_by = default_by,
     ...
@@ -151,6 +149,10 @@ StatProp <- ggplot2::ggproto("StatProp", ggplot2::Stat,
         call. = FALSE
       )
     }
+    if (is.null(params$width)) {
+      x <- if (params$flipped_aes) "y" else "x"
+      params$width <- resolution(data[[x]], discrete = TRUE) * 0.9
+    }
     params
   },
   extra_params = c("na.rm"),