lintr

easystats · Dec 3, 2023 · 4745e5b · 4745e5b
1 parent 3ebc6dc
commit 4745e5b
Showing 1 changed file with 25 additions and 23 deletions.
diff --git a/R/plot.check_collinearity.R b/R/plot.check_collinearity.R
@@ -118,31 +118,33 @@ plot.see_check_collinearity <- function(x,
       fill = colors[3],
       color = NA,
       alpha = 0.15
-    ) +
-    if (!is.null(ci_data)) {
-      list(
-        ggplot2::geom_linerange(
-          linewidth = size_line,
-          na.rm = TRUE
+    )
+
+  if (!is.null(ci_data)) {
+    p <- p +
+      ggplot2::geom_linerange(
+        linewidth = size_line,
+        na.rm = TRUE
+      ) +
+      ggplot2::geom_segment(
+        data = x[x$VIF_CI_high > ylim * 1.15, ],
+        mapping = aes(
+          x = .data$x,
+          xend = .data$x,
+          y = .data$y,
+          yend = .data$VIF_CI_high
         ),
-        ggplot2::geom_segment(
-          data = x[x$VIF_CI_high > ylim * 1.15, ],
-          mapping = aes(
-            x = .data$x,
-            xend = .data$x,
-            y = .data$y,
-            yend = .data$VIF_CI_high
-          ),
-          lineend = "round",
-          linejoin = "round",
-          arrow = ggplot2::arrow(
-            ends = "last", type = "closed",
-            angle = 20, length = ggplot2::unit(0.03, "native")
-          ),
-          show.legend = FALSE
-        )
+        lineend = "round",
+        linejoin = "round",
+        arrow = ggplot2::arrow(
+          ends = "last", type = "closed",
+          angle = 20, length = ggplot2::unit(0.03, "native")
+        ),
+        show.legend = FALSE
       )
-    } +
+  }
+
+  p <- p +
     geom_point2(
       size = size_point,
       na.rm = TRUE