extract show_ci atztr

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.12.0.3
+Version: 0.12.0.4
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -127,4 +127,3 @@ Config/testthat/edition: 3
 Config/testthat/parallel: true
 Config/Needs/website: easystats/easystatstemplate
 Config/rcmdcheck/ignore-inconsequential-notes: true
-Remotes: easystats/performance

NEWS.md

@@ -14,6 +14,9 @@
   with many observations, to reduce the time for rendering the plot. Use argument
   `maximum_dots` to define the maximum number of data points to show.
 
+* `plot()` for `check_model()` extracts the `show_ci` attribute from objects
+  returned by `check_model()`, to show or hide confidence intervals.
+
 # see 0.12.0
 
 ## Major Changes

R/plot.check_homogeneity.R

@@ -156,6 +156,7 @@ plot.see_check_homogeneity <- function(x, data = NULL, ...) {
   colors = unname(social_colors(c("green", "blue", "red"))),
   alpha_dot = 0.8,
   show_dots = TRUE,
+  show_ci = TRUE,
   maximum_dots = 2000,
   ...
 ) {
@@ -185,7 +186,7 @@ plot.see_check_homogeneity <- function(x, data = NULL, ...) {
   p +
     ggplot2::stat_smooth(
       method = "loess",
-      se = TRUE,
+      se = show_ci,
       alpha = alpha_level,
       formula = y ~ x,
       linewidth = linewidth,

R/plot.check_model.R

@@ -51,6 +51,7 @@ plot.see_check_model <- function(
   alpha_level <- attr(x, "alpha")
   alpha_dot <- attr(x, "alpha_dot")
   show_dots <- attr(x, "show_dots")
+  show_ci <- attr(x, "show_ci")
   detrend <- attr(x, "detrend")
   model_info <- attr(x, "model_info")
   overdisp_type <- attr(x, "overdisp_type")
@@ -159,6 +160,7 @@ plot.see_check_model <- function(
       colors = colors,
       alpha_dot = alpha_dot,
       show_dots = show_dots,
+      show_ci = show_ci,
       maximum_dots = max_dots
     )
   }
@@ -219,6 +221,7 @@ plot.see_check_model <- function(
       colors = colors,
       alpha_dot = alpha_dot,
       show_dots = show_dots,
+      show_ci = show_ci,
       maximum_dots = max_dots
     )
   }
@@ -362,6 +365,7 @@ plot.see_check_model <- function(
   colors = unname(social_colors(c("green", "blue", "red"))),
   alpha_dot = 0.8,
   show_dots = TRUE,
+  show_ci = TRUE,
   maximum_dots = 2000,
   ...
 ) {
@@ -391,7 +395,7 @@ plot.see_check_model <- function(
   p +
     ggplot2::geom_smooth(
       method = "loess",
-      se = TRUE,
+      se = show_ci,
       formula = y ~ x,
       alpha = alpha_level,
       linewidth = linewidth,