Fix, add snapshot

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.9.0.10
+Version: 0.9.0.11
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

R/plot.check_collinearity.R

@@ -38,14 +38,11 @@ plot.see_check_collinearity <- function(x,
   dat$group[dat$VIF >= 5 & dat$VIF < 10] <- "moderate"
   dat$group[dat$VIF >= 10] <- "high"
 
-  dat <- datawizard::data_rename(
+  dat <- datawizard::data_select(
     dat,
-    select = c("Term", "VIF", "SE_factor", "Component"),
-    replacement = c("x", "y", "se", "facet")
+    select = c(x = "Term", y = "VIF", facet = "Component", group = "group")
   )
 
-  dat <- datawizard::data_select(dat, select = c("x", "y", "facet", "group"))
-
   if (insight::n_unique(dat$facet) <= 1) {
     dat$facet <- NULL
   }

tests/testthat/_snaps/plot.check_collinearity/plot-check-collinearity.svg

@@ -1,6 +1,11 @@
 test_that("`plot.see_check_collinearity()` works", {
   m <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
   result <- performance::check_collinearity(m)
-
   expect_s3_class(plot(result), "gg")
+
+  skip_if_not_installed("vdiffr")
+  vdiffr::expect_doppelganger(
+    title = "plot.check_collinearity",
+    fig = plot(result)
+  )
 })

tests/testthat/test-plot.check_collinearity.R

@@ -1,5 +1,6 @@
 skip_if_not_installed("ggdag")
 skip_if_not_installed("dagitty")
+skip_if_not_installed("vdiffr")
 
 test_that("`plot()` for check_dag", {
   set.seed(1234)