lintr, styler, minor doc

easystats · Aug 30, 2023 · 957dd35 · 957dd35
1 parent 5fd51c8
commit 957dd35
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 21 deletions.
diff --git a/R/standardize.R b/R/standardize.R
@@ -205,15 +205,9 @@ standardize.matrix <- function(x, ...) {
   x_out <- do.call(cbind, xz)
   dimnames(x_out) <- dimnames(x)
 
-  attr(x_out, "center") <- vapply(xz, function(x) {
-    attr(x, "center")
-  }, FUN.VALUE = numeric(1L))
-  attr(x_out, "scale") <- vapply(xz, function(x) {
-    attr(x, "scale")
-  }, FUN.VALUE = numeric(1L))
-  attr(x_out, "robust") <- vapply(xz, function(x) {
-    attr(x, "robust")
-  }, FUN.VALUE = logical(1L))[1]
+  attr(x_out, "center") <- vapply(xz, attr, "center", FUN.VALUE = numeric(1L))
+  attr(x_out, "scale") <- vapply(xz, attr, "scale", FUN.VALUE = numeric(1L))
+  attr(x_out, "robust") <- vapply(xz, attr, "robust", FUN.VALUE = logical(1L))[1]
   class(x_out) <- c("dw_transformer", class(x_out))
 
   x_out

diff --git a/man/describe_distribution.Rd b/man/describe_distribution.Rd
diff --git a/tests/testthat/_snaps/means_by_group.md b/tests/testthat/_snaps/means_by_group.md
@@ -1,4 +1,4 @@
-# meany_by_group
+# mean_by_group
 
     Code
       means_by_group(efc, "c12hour", "e42dep")

diff --git a/tests/testthat/_snaps/windows/means_by_group.md b/tests/testthat/_snaps/windows/means_by_group.md
@@ -1,4 +1,4 @@
-# meany_by_group, weighted
+# mean_by_group, weighted
 
     Code
       means_by_group(efc, "c12hour", "e42dep", weights = "weight")