styler, lints

easystats · Aug 20, 2023 · e7dd792 · e7dd792
1 parent 0e66d07
commit e7dd792
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 6 deletions.
diff --git a/R/cohens_d.R b/R/cohens_d.R
@@ -261,7 +261,7 @@ glass_delta <- function(x, y = NULL, data = NULL,
   }
 
   out <- data.frame(d = (d - mu) / s)
-  types <- c("d" = "Cohens_d", "g" = "Hedges_g", "delta" = "Glass_delta")
+  types <- c(d = "Cohens_d", g = "Hedges_g", delta = "Glass_delta")
   colnames(out) <- types[type]
 
   if (.test_ci(ci)) {

diff --git a/tests/testthat/test-htest_data.R b/tests/testthat/test-htest_data.R
@@ -161,7 +161,7 @@ test_that("subset and na.action", {
     na.action = na.omit
   )
 
-  expect_equal(d1_paired, d2_paired)
+  expect_identical(d1_paired, d2_paired)
 
   # wilcox.test
   x <- wilcox.test(
@@ -201,7 +201,7 @@ test_that("subset and na.action", {
   wb <- aggregate(warpbreaks$breaks, by = list(
     w = warpbreaks$wool, t = warpbreaks$tension
   ), FUN = mean)
-  new_row <- data.frame(w = "B", t = "H", x = 99)
+  new_row <- data.frame(w = "B", t = "H", x = 99, stringsAsFactors = FALSE)
   wb <- rbind(wb, wb[6, ], new_row)
   wb$x[7] <- NA
 
@@ -264,7 +264,4 @@ test_that("subset and na.action", {
   # using the S3 method instead of the formula interface because no other
   # dataframe is provided on which to do the subsetting. So no test is
   # necessary here.
-
 })
-
-