Reduce usage of pipes in the docs and tests (#389)

* Reduce usage of pipes in the docs and tests
Fixes #276

* styler /whitespace

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.10.0.8
+Version: 0.10.0.9
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -102,7 +102,6 @@ Suggests:
     metafor,
     NbClust,
     nFactors,
-    poorman,
     psych,
     qqplotr (>= 0.0.6),
     randomForest,

README.Rmd

@@ -7,7 +7,6 @@ csl: apa.csl
 # see: Model Visualisation Toolbox for 'easystats' and 'ggplot2' <img src='man/figures/logo.png' align="right" height="139" />
 
 ```{r, echo=FALSE, warning=FALSE, message=FALSE}
-library(poorman)
 library(see)
 
 knitr::opts_chunk$set(
@@ -267,7 +266,7 @@ p2 <- ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
 p3 <- ggplot(iris, aes(x = Petal.Length, y = Petal.Width, color = Sepal.Length)) +
   geom_point2() +
   theme_modern() +
-  scale_color_material_c(palette = "rainbow")
+  scale_color_material(discrete = FALSE)
 ```
 
 ## Multiple plots
@@ -321,16 +320,25 @@ ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
 ## Radar chart (Spider plot)
 
 ```{r}
-library(poorman)
 library(datawizard)
 
 # prepare the data in tidy format
-data <- iris %>%
-  group_by(Species) %>%
-  summarise(across(everything(), mean)) %>%
-  reshape_longer(c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width"))
-
-data %>%
+data <- iris |>
+  datawizard::data_group("Species") |>
+  datawizard::data_summary(
+    Sepal.Length = mean(Sepal.Length),
+    Sepal.Width = mean(Sepal.Width),
+    Petal.Length = mean(Petal.Length),
+    Petal.Width = mean(Petal.Width)
+  ) |>
+  datawizard::reshape_longer(c(
+    "Sepal.Length",
+    "Sepal.Width",
+    "Petal.Length",
+    "Petal.Width"
+  ))
+
+data |>
   ggplot(aes(
     x = name,
     y = value,

README.md

@@ -325,7 +325,7 @@ p2 <- ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
 p3 <- ggplot(iris, aes(x = Petal.Length, y = Petal.Width, color = Sepal.Length)) +
   geom_point2() +
   theme_modern() +
-  scale_color_material_c(palette = "rainbow")
+  scale_color_material(discrete = FALSE)
 ```
 
 ## Multiple plots
@@ -388,16 +388,25 @@ ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
 ## Radar chart (Spider plot)
 
 ``` r
-library(poorman)
 library(datawizard)
 
 # prepare the data in tidy format
-data <- iris %>%
-  group_by(Species) %>%
-  summarise(across(everything(), mean)) %>%
-  reshape_longer(c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width"))
-
-data %>%
+  data <- iris |>
+    datawizard::data_group("Species") |>
+    datawizard::data_summary(
+      Sepal.Length = mean(Sepal.Length),
+      Sepal.Width = mean(Sepal.Width),
+      Petal.Length = mean(Petal.Length),
+      Petal.Width = mean(Petal.Width)
+    ) |>
+    datawizard::reshape_longer(c(
+      "Sepal.Length",
+      "Sepal.Width",
+      "Petal.Length",
+      "Petal.Width"
+    ))
+
+data |>
   ggplot(aes(
     x = name,
     y = value,

man/figures/unnamed-chunk-10-1.png

@@ -1,17 +1,29 @@
+skip_if_not_installed("vdiffr")
+
 test_that("theme functions work", {
-  skip_if_not_installed("poorman")
-  suppressPackageStartupMessages(library(poorman))
+  skip_if(getRversion() < "4.1.0")
 
-  data <- iris %>%
-    group_by(Species) %>%
-    summarise(across(everything(), mean)) %>%
-    datawizard::reshape_longer(c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width"))
+  data <- iris |>
+    datawizard::data_group("Species") |>
+    datawizard::data_summary(
+      Sepal.Length = mean(Sepal.Length),
+      Sepal.Width = mean(Sepal.Width),
+      Petal.Length = mean(Petal.Length),
+      Petal.Width = mean(Petal.Width)
+    ) |>
+    datawizard::reshape_longer(c(
+      "Sepal.Length",
+      "Sepal.Width",
+      "Petal.Length",
+      "Petal.Width"
+    ))
 
   set.seed(123)
   vdiffr::expect_doppelganger(
     title = "theme_radar works",
     fig = ggplot(
-      data, aes(
+      data,
+      aes(
         x = name,
         y = value,
         color = Species,
@@ -30,23 +42,32 @@ test_that("theme functions work", {
   set.seed(123)
   vdiffr::expect_doppelganger(
     title = "theme_modern works",
-    fig = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = Species)) +
+    fig = ggplot(
+      iris,
+      aes(x = Sepal.Width, y = Sepal.Length, color = Species)
+    ) +
       geom_point() +
       theme_modern()
   )
 
   set.seed(123)
   vdiffr::expect_doppelganger(
     title = "theme_modern with ticks works",
-    fig = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = Species)) +
+    fig = ggplot(
+      iris,
+      aes(x = Sepal.Width, y = Sepal.Length, color = Species)
+    ) +
       geom_point() +
       theme_modern(show.ticks = TRUE)
   )
 
   set.seed(123)
   vdiffr::expect_doppelganger(
     title = "theme_modern works with base_size",
-    fig = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = Species)) +
+    fig = ggplot(
+      iris,
+      aes(x = Sepal.Width, y = Sepal.Length, color = Species)
+    ) +
       geom_point() +
       theme_modern(base_size = 20)
   )

man/figures/unnamed-chunk-9-1.png

@@ -17,7 +17,7 @@ knitr::opts_chunk$set(
   message = FALSE
 )
 
-pkgs <- c("correlation", "ggplot2", "ggraph", "poorman")
+pkgs <- c("correlation", "ggplot2", "ggraph")
 successfully_loaded <- vapply(pkgs, requireNamespace, FUN.VALUE = logical(1L), quietly = TRUE)
 can_evaluate <- all(successfully_loaded)
 

tests/testthat/test-vdiffr_themes.R

@@ -17,11 +17,11 @@ knitr::opts_chunk$set(
   message = FALSE
 )
 
-pkgs <- c("effectsize", "ggplot2", "poorman")
+pkgs <- c("effectsize", "ggplot2")
 successfully_loaded <- vapply(pkgs, requireNamespace, FUN.VALUE = logical(1L), quietly = TRUE)
 can_evaluate <- all(successfully_loaded)
 
-if (can_evaluate) {
+if (can_evaluate && getRversion() >= "4.1.0") {
   knitr::opts_chunk$set(eval = TRUE)
   vapply(pkgs, require, FUN.VALUE = logical(1L), quietly = TRUE, character.only = TRUE)
 } else {
@@ -55,12 +55,12 @@ data(iris)
 _([related function documentation](https://easystats.github.io/effectsize/reference/eta_squared.html))_
 
 ```{r}
-aov(mpg ~ factor(am) * factor(cyl), data = mtcars) %>%
-  eta_squared() %>%
+aov(mpg ~ factor(am) * factor(cyl), data = mtcars) |>
+  eta_squared() |>
   plot()
 
 
-t_to_d(t = c(1, -1.3, -3, 2.3), df_error = c(40, 35, 40, 85)) %>%
+t_to_d(t = c(1, -1.3, -3, 2.3), df_error = c(40, 35, 40, 85)) |>
   plot()
 ```
 
@@ -69,13 +69,13 @@ t_to_d(t = c(1, -1.3, -3, 2.3), df_error = c(40, 35, 40, 85)) %>%
 _([related function documentation](https://easystats.github.io/effectsize/reference/equivalence_test.effectsize_table.html))_
 
 ```{r}
-aov(mpg ~ factor(am) * factor(cyl), data = mtcars) %>%
-  eta_squared() %>%
-  equivalence_test(range = 0.3) %>%
+aov(mpg ~ factor(am) * factor(cyl), data = mtcars) |>
+  eta_squared() |>
+  equivalence_test(range = 0.3) |>
   plot()
 
 
-t_to_d(t = c(1, -1.3, -3, 2.3), df_error = c(40, 35, 40, 85)) %>%
-  equivalence_test(range = 1) %>%
+t_to_d(t = c(1, -1.3, -3, 2.3), df_error = c(40, 35, 40, 85)) |>
+  equivalence_test(range = 1) |>
   plot()
 ```