lint + style

easystats · Jan 8, 2025 · eef125d · eef125d
1 parent 8406d7b
commit eef125d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/methods_aov.R b/R/methods_aov.R
@@ -548,7 +548,7 @@ model_parameters.seqanova.svyglm <- model_parameters.aov
     data <- Filter(function(x) nrow(x) >= 1L, data)
     cols <- unique(unlist(lapply(data, colnames)))
     data <- lapply(data, function(x) {
-      x[,setdiff(cols, colnames(x))] <- NA
+      x[, setdiff(cols, colnames(x))] <- NA
       x
     })
     data <- do.call(rbind, data)

diff --git a/tests/testthat/test-model_parameters.aov.R b/tests/testthat/test-model_parameters.aov.R
@@ -92,10 +92,12 @@ test_that("model_parameters.aov - table_wide", {
 
   data("iris")
   # can't use the pipe yet :(
-  iris_long <- datawizard::data_modify(iris, id = 1:length(Species))
+  iris_long <- datawizard::data_modify(iris, id = seq_along(Species))
   iris_long <- datawizard::data_to_long(iris_long, select = colnames(iris)[1:4])
-  iris_long <- datawizard::data_separate(iris_long, select = "name", separator = "\\.",
-                                         new_columns = c("attribute", "measure"))
+  iris_long <- datawizard::data_separate(iris_long,
+    select = "name", separator = "\\.",
+    new_columns = c("attribute", "measure")
+  )
 
   mod1 <- stats::aov(
     formula = value ~ attribute * measure + Error(id),