replace sapply with vapply

ref #280

R/redcap-read-oneshot.R

@@ -252,8 +252,8 @@ redcap_read_oneshot <- function(
     if (exists("ds") & inherits(ds, "data.frame")) {
       outcome_message <- sprintf(
         "%s records and %s columns were read from REDCap in %0.1f seconds.  The http status code was %i.",
-        format(  nrow(ds), big.mark = ",", scientific = F, trim = TRUE),
-        format(length(ds), big.mark = ",", scientific = F, trim = TRUE),
+        format(  nrow(ds), big.mark = ",", scientific = FALSE, trim = TRUE),
+        format(length(ds), big.mark = ",", scientific = FALSE, trim = TRUE),
         kernel$elapsed_seconds,
         kernel$status_code
       )

R/validate.R

@@ -124,7 +124,7 @@ validate_for_write <- function(d) {
   checkmate::assert_data_frame(d, any.missing = FALSE)
 
   lst_concerns <- list(
-    validate_no_logical(sapply(d, class)),
+    validate_no_logical(vapply(d, class, character(1))),
     validate_field_names(colnames(d))
   )
 

tests/testthat/test-validate.R

@@ -23,13 +23,13 @@ test_that("validate_for_write_no_errors", {
 
 test_that("validate_field_names -stop on error", {
   expect_error(
-    validate_no_logical(sapply(ds_bad, class), stop_on_error = TRUE),
+    validate_no_logical(vapply(ds_bad, class, character(1)), stop_on_error = TRUE),
     "1 field\\(s\\) were logical/boolean. The REDCap API does not automatically convert boolean values to 0/1 values.  Convert the variable with the `as.integer\\(\\)` function."
   )
 })
 
 test_that("validate_no_logical -concern dataset", {
-  ds <- validate_no_logical(sapply(ds_bad, class))
+  ds <- validate_no_logical(vapply(ds_bad, class, character(1)))
   expect_equal(object=nrow(ds), expected=1, info="One logical field should be flagged")
   expect_equal(object=ds$field_name, expected="bad_logical")
   expect_equal(object=ds$field_index, expected=2)