Use vapply instead of sapply

ropensci · Nov 28, 2018 · 6184839 · 6184839
1 parent 26d48c6
commit 6184839
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-variable_listing.R b/tests/testthat/test-variable_listing.R
@@ -19,8 +19,8 @@ test_that("works as expected", {
   expect_true("ts_id" %in% colnames(ostend))
 
   # all character data types
-  expect_equal(prod(sapply(overpelt, is.character)), 1)
-  expect_equal(prod(sapply(ostend, is.character)), 1)
+  expect_equal(prod(vapply(overpelt, is.character, TRUE)), 1)
+  expect_equal(prod(vapply(overpelt, is.character, TRUE)), 1)
 
   expect_equal(
     colnames(overpelt),