Prefer lengths()

r-dbi · Jan 11, 2024 · a3c7973 · a3c7973
1 parent ce19842
commit a3c7973
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -78,7 +78,7 @@ try_silent <- function(code) {
 check_df <- function(df) {
   expect_s3_class(df, "data.frame")
   if (length(df) >= 1L) {
-    lengths <- vapply(df, length, integer(1L), USE.NAMES = FALSE)
+    lengths <- unname(lengths(df))
     expect_equal(diff(lengths), rep(0L, length(lengths) - 1L))
     expect_equal(nrow(df), lengths[[1]])
   }