allow attr

easystats · Oct 24, 2023 · 79ea5de · 79ea5de
1 parent a60e1a4
commit 79ea5de
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/plot.binned_residuals.R b/R/plot.binned_residuals.R
@@ -17,6 +17,11 @@ plot.see_binned_residuals <- function(x,
 
   # set defaults
   term <- attr(x, "term", exact = TRUE)
+  if (is.null(dots[["show_dots"]])) {
+    show_dots <- isTRUE(attr(x, "show_dots", exact = TRUE))
+  } else {
+    show_dots <- isTRUE(dots[["show_dots"]])
+  }
 
   if (missing(style) && !is.null(attr(x, "theme"))) {
     theme_style <- unlist(strsplit(attr(x, "theme"), "::", fixed = TRUE))
@@ -36,7 +41,7 @@ plot.see_binned_residuals <- function(x,
   }
 
   # show or hide dots - may be useful for large models with many observations
-  if (!isTRUE(dots[["show_dots"]]) && insight::n_unique(x$group) > 1) {
+  if (!show_dots && insight::n_unique(x$group) > 1) {
     x$ybar[x$group == "yes"] <- NA
     x$CI_low[x$group == "yes"] <- NA
     x$CI_high[x$group == "yes"] <- NA