remove unnecessary keyword args in testthat calls

IndrajeetPatil · Dec 4, 2023 · d40b42a · d40b42a
1 parent 206c32d
commit d40b42a
Show file tree

Hide file tree

Showing 13 changed files with 100 additions and 100 deletions.
diff --git a/tests/testthat/test-combine_plots.R b/tests/testthat/test-combine_plots.R
@@ -1,6 +1,6 @@
 test_that(
-  desc = "checking if combining plots works",
-  code = {
+  "checking if combining plots works",
+  {
     p1 <- ggplot2::ggplot(
       data = subset(iris, iris$Species == "setosa"),
       aes(x = Sepal.Length, y = Sepal.Width)

diff --git a/tests/testthat/test-extract_stats.R b/tests/testthat/test-extract_stats.R
@@ -1,6 +1,6 @@
 test_that(
-  desc = "checking if extract_stats works",
-  code = {
+  "checking if extract_stats works",
+  {
     skip_if_not_installed("PMCMRplus")
     skip_if_not_installed("rstantools")
     options(tibble.width = Inf)

diff --git a/tests/testthat/test-ggbarstats.R b/tests/testthat/test-ggbarstats.R
@@ -16,8 +16,8 @@ survey_data_NA <- dplyr::tibble(
 # checking default outputs -----------------------------------------
 
 test_that(
-  desc = "checking default outputs",
-  code = {
+  "checking default outputs",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "checking unpaired two-way table - without NA",
@@ -59,8 +59,8 @@ test_that(
 # changing labels and aesthetics -------------------------------------------
 
 test_that(
-  desc = "changing labels and aesthetics",
-  code = {
+  "changing labels and aesthetics",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "checking percentage labels",
@@ -156,8 +156,8 @@ test_that(
 # edge cases ---------------------------------------------------------
 
 test_that(
-  desc = "edge cases",
-  code = {
+  "edge cases",
+  {
     # dropped level dataset
     mtcars_small <- dplyr::filter(mtcars, am == "0")
 
@@ -179,8 +179,8 @@ test_that(
 # expression output --------------------------------------------------
 
 test_that(
-  desc = "expression output",
-  code = {
+  "expression output",
+  {
     set.seed(123)
     p_sub <- ggbarstats(
       data = ggplot2::msleep,
@@ -203,15 +203,15 @@ test_that(
 )
 
 test_that(
-  desc = "grouped_ggbarstats produces error when grouping variable not provided",
-  code = {
+  "grouped_ggbarstats produces error when grouping variable not provided",
+  {
     expect_snapshot(grouped_ggbarstats(mtcars, x = cyl, y = am), error = TRUE)
   }
 )
 
 test_that(
-  desc = "grouped_ggbarstats works",
-  code = {
+  "grouped_ggbarstats works",
+  {
     # creating a smaller data frame
     mpg_short <- ggplot2::mpg %>%
       dplyr::filter(
@@ -238,8 +238,8 @@ test_that(
 # edge cases --------------------
 
 test_that(
-  desc = "edge case behavior",
-  code = {
+  "edge case behavior",
+  {
     df <- data.frame(
       dataset = c("a", "b", "c", "c", "c", "c"),
       measurement = c("old", "old", "old", "old", "new", "new"),

diff --git a/tests/testthat/test-ggbetweenstats.R b/tests/testthat/test-ggbetweenstats.R
@@ -5,8 +5,8 @@ skip_if_not_installed("rstantools")
 # checking labels and data from plot -------------------------------------
 
 test_that(
-  desc = "plotting features work as expected",
-  code = {
+  "plotting features work as expected",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "modification with ggplot2 works as expected",
@@ -59,8 +59,8 @@ test_that(
 # subtitle output works ------------------------------------------------
 
 test_that(
-  desc = "subtitle output works",
-  code = {
+  "subtitle output works",
+  {
     skip_on_cran()
 
     df <- mtcars
@@ -89,8 +89,8 @@ test_that(
 # grouped_ggbetweenstats defaults --------------------------------------------------
 
 test_that(
-  desc = "grouped_ggbetweenstats defaults",
-  code = {
+  "grouped_ggbetweenstats defaults",
+  {
     # expect error when no grouping.var is specified
     expect_snapshot_error(grouped_ggbetweenstats(mtcars, x = am, y = wt))
 

diff --git a/tests/testthat/test-ggcoefstats.R b/tests/testthat/test-ggcoefstats.R
@@ -84,8 +84,8 @@ test_that("meta-analysis works", {
 # plot modifications--------------------------------------------------
 
 test_that(
-  desc = "plot modifications work as expected",
-  code = {
+  "plot modifications work as expected",
+  {
     set.seed(123)
     mod1 <- stats::lm(data = mtcars, formula = wt ~ mpg * am)
 
@@ -131,8 +131,8 @@ test_that(
 # edge cases -------------------------------------
 
 test_that(
-  desc = "works when CIs unavailable",
-  code = {
+  "works when CIs unavailable",
+  {
     set.seed(123)
     df_base <- tidy_model_parameters(stats::lm(wt ~ am * cyl, mtcars))
 
@@ -154,8 +154,8 @@ test_that(
 # meta subtitle and caption -------------------------------------
 
 test_that(
-  desc = "meta analysis subtitle and caption",
-  code = {
+  "meta analysis subtitle and caption",
+  {
     skip_on_cran()
     skip_if_not_installed("metafor")
     skip_if_not_installed("metaBMA")

diff --git a/tests/testthat/test-ggcorrmat.R b/tests/testthat/test-ggcorrmat.R
@@ -1,6 +1,6 @@
 test_that(
-  desc = "checking ggcorrmat with entier dataset",
-  code = {
+  "checking ggcorrmat with entier dataset",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "parametric correlation - without NAs",
@@ -18,8 +18,8 @@ test_that(
 # changing defaults -------------------------------------------
 
 test_that(
-  desc = "ggcorrmat works as expected with changed defaults",
-  code = {
+  "ggcorrmat works as expected with changed defaults",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "changing aesthetic defaults",
@@ -61,8 +61,8 @@ test_that(
 # grouped_ggcorrmat output: plot ---------------------------------------------------------------
 
 test_that(
-  desc = "grouped_ggcorrmat plots are as expected",
-  code = {
+  "grouped_ggcorrmat plots are as expected",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "without NAs",
@@ -87,8 +87,8 @@ test_that(
 # expected warnings -------------------------------------------
 
 test_that(
-  desc = "grouped_ggcorrmat produces error when grouping isn't specified",
-  code = {
+  "grouped_ggcorrmat produces error when grouping isn't specified",
+  {
     expect_snapshot(grouped_ggcorrmat(iris), error = TRUE)
   }
 )
diff --git a/tests/testthat/test-ggdotplotstats.R b/tests/testthat/test-ggdotplotstats.R
@@ -18,8 +18,8 @@ morley_new[87L, 3L] <- NA_integer_
 # checking default outputs -----------------------------------------
 
 test_that(
-  desc = "checking default outputs",
-  code = {
+  "checking default outputs",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "parametric - without NA",
@@ -38,8 +38,8 @@ test_that(
 # modification with ggplot2 ----------------------------------------------
 
 test_that(
-  desc = "modification with ggplot2 works as expected",
-  code = {
+  "modification with ggplot2 works as expected",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "modification with ggplot2 ",
@@ -63,8 +63,8 @@ test_that(
 # subtitle output -------------------------------------------------------
 
 test_that(
-  desc = "subtitle output",
-  code = {
+  "subtitle output",
+  {
     set.seed(123)
     p_sub_ggdot <- suppressWarnings(ggdotplotstats(
       data = morley,
@@ -93,8 +93,8 @@ test_that(
 # grouped_ggdotplotstats works -----------------------------------------------
 
 test_that(
-  desc = "grouped_ggdotplotstats works",
-  code = {
+  "grouped_ggdotplotstats works",
+  {
     # removing factor level with very few no. of observations
     df <- dplyr::filter(ggplot2::mpg, cyl %in% c("4", "6", "8"))
 

diff --git a/tests/testthat/test-gghistostats.R b/tests/testthat/test-gghistostats.R
@@ -1,8 +1,8 @@
 # checking default outputs -----------------------------------------
 
 test_that(
-  desc = "checking default outputs",
-  code = {
+  "checking default outputs",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "parametric - without NA",
@@ -20,8 +20,8 @@ test_that(
 # aesthetic modifications work --------------------------------------
 
 test_that(
-  desc = "aesthetic modifications work",
-  code = {
+  "aesthetic modifications work",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "aesthetic modifications work",
@@ -45,8 +45,8 @@ test_that(
 # normal curve works -------------------------------------
 
 test_that(
-  desc = "checking if normal curve work",
-  code = {
+  "checking if normal curve work",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "plot normal curve",
@@ -65,8 +65,8 @@ test_that(
 # subtitle output --------------------------------------------------
 
 test_that(
-  desc = "subtitle output",
-  code = {
+  "subtitle output",
+  {
     set.seed(123)
     p_sub <- gghistostats(
       data = ggplot2::msleep,
@@ -91,17 +91,17 @@ test_that(
 # utilities ---------------
 
 test_that(
-  desc = ".binwidth works as expected",
-  code = {
+  ".binwidth works as expected",
+  {
     expect_equal(ggstatsplot:::.binwidth(mtcars$wt), 0.6913737, tolerance = 0.001)
   }
 )
 
 # grouped_gghistostats works ---------------------------------------------
 
 test_that(
-  desc = "grouped_gghistostats plotting works as expected",
-  code = {
+  "grouped_gghistostats plotting works as expected",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "defaults as expected",

diff --git a/tests/testthat/test-ggpiestats.R b/tests/testthat/test-ggpiestats.R
@@ -15,8 +15,8 @@ survey_data_NA <- dplyr::tibble(
 # checking default outputs -----------------------------------------
 
 test_that(
-  desc = "checking default outputs",
-  code = {
+  "checking default outputs",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "checking one-way table - without NA",
@@ -70,8 +70,8 @@ test_that(
 # changing labels and aesthetics -------------------------------------------
 
 test_that(
-  desc = "changing labels and aesthetics",
-  code = {
+  "changing labels and aesthetics",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "checking percentage labels",
@@ -142,8 +142,8 @@ test_that(
 # edge cases ---------------------------------------------------------
 
 test_that(
-  desc = "edge cases",
-  code = {
+  "edge cases",
+  {
     # dropped level dataset
     mtcars_small <- dplyr::filter(mtcars, am == "0")
 
@@ -165,8 +165,8 @@ test_that(
 # expression output --------------------------------------------------
 
 test_that(
-  desc = "expression output",
-  code = {
+  "expression output",
+  {
     set.seed(123)
     p_sub <- ggpiestats(
       ggplot2::msleep,
@@ -191,15 +191,15 @@ test_that(
 # grouped_ggpiestats works as expected ---------------------
 
 test_that(
-  desc = "grouped_ggpiestats produces error when grouping variable not provided",
-  code = {
+  "grouped_ggpiestats produces error when grouping variable not provided",
+  {
     expect_snapshot_error(grouped_ggpiestats(mtcars, x = cyl))
   }
 )
 
 test_that(
-  desc = "grouped_ggpiestats works",
-  code = {
+  "grouped_ggpiestats works",
+  {
     set.seed(123)
     expect_doppelganger(
       title = "grouped_ggpiestats with one-way table",
@@ -236,8 +236,8 @@ test_that(
 # grouped_ggpiestats edge cases --------------------
 
 test_that(
-  desc = "edge case behavior",
-  code = {
+  "edge case behavior",
+  {
     df <- data.frame(
       dataset = c("a", "b", "c", "c", "c", "c"),
       measurement = c("old", "old", "old", "old", "new", "new"),