Merge branch 'f-test-select-dots' into f-inline-test-select

R/expectations.R

@@ -48,10 +48,10 @@ expect_invisible_true <- function(code) {
 
 expect_equal_df <- function(actual, expected) {
   factor_cols <- map_lgl(expected, is.factor)
-  expected[factor_cols] <- lapply(expected[factor_cols], as.character)
+  expected[factor_cols] <- map(expected[factor_cols], as.character)
 
   asis_cols <- map_lgl(expected, inherits, "AsIs")
-  expected[asis_cols] <- lapply(expected[asis_cols], unclass)
+  expected[asis_cols] <- map(expected[asis_cols], unclass)
 
   list_cols <- map_lgl(expected, is.list)
 

R/run.R

@@ -108,7 +108,7 @@ get_skip_names <- function(skip) {
   }
   names_all <- names(spec_all)
   names_all <- names_all[names_all != ""]
-  skip_flags_all <- lapply(paste0("(?:^(?:", skip, ")(?:|_[0-9]+)$)"), grepl, names_all, perl = TRUE)
+  skip_flags_all <- map(paste0("(?:^(?:", skip, ")(?:|_[0-9]+)$)"), grepl, names_all, perl = TRUE)
   skip_used <- map_lgl(skip_flags_all, any)
   if (!all(skip_used)) {
     warning("Unused skip expressions: ", paste(skip[!skip_used], collapse = ", "),
@@ -129,7 +129,7 @@ get_run_only_tests <- function(tests, run_only) {
     return(tests)
   }
 
-  run_only_flags_all <- lapply(paste0("(?:^(?:", run_only, ")$)"), grepl, names_all, perl = TRUE)
+  run_only_flags_all <- map(paste0("(?:^(?:", run_only, ")$)"), grepl, names_all, perl = TRUE)
   run_only_flag_all <- Reduce(`|`, run_only_flags_all)
   run_only_tests <- names_all[run_only_flag_all]
 

R/spec-arrow-append-table-arrow.R

@@ -465,16 +465,16 @@ spec_arrow_append_table_arrow <- list(
   arrow_append_table_arrow_roundtrip_mixed = function(con) {
     #' Mixing column types in the same table is supported.
     data <- list("a", 1L, 1.5)
-    data <- lapply(data, c, NA)
+    data <- map(data, c, NA)
     expanded <- expand.grid(a = data, b = data, c = data)
-    tbl_in_list <- lapply(
+    tbl_in_list <- map(
       seq_len(nrow(expanded)),
       function(i) {
-        data.frame(lapply(expanded[i, ], unlist, recursive = FALSE))
+        data.frame(map(expanded[i, ], unlist, recursive = FALSE))
       }
     )
 
-    lapply(tbl_in_list, test_arrow_roundtrip, con = con)
+    map(tbl_in_list, test_arrow_roundtrip, con = con)
   },
 
   arrow_append_table_arrow_name = function(ctx, con) {

R/spec-arrow-write-table-arrow.R

@@ -698,16 +698,16 @@ spec_arrow_write_table_arrow <- list(
   arrow_write_table_arrow_roundtrip_mixed = function(ctx, con) {
     #' Mixing column types in the same table is supported.
     data <- list("a", 1L, 1.5)
-    data <- lapply(data, c, NA)
+    data <- map(data, c, NA)
     expanded <- expand.grid(a = data, b = data, c = data)
-    tbl_in_list <- lapply(
+    tbl_in_list <- map(
       seq_len(nrow(expanded)),
       function(i) {
-        as.data.frame(lapply(expanded[i, ], unlist, recursive = FALSE))
+        as.data.frame(map(expanded[i, ], unlist, recursive = FALSE))
       }
     )
 
-    lapply(tbl_in_list, test_arrow_roundtrip, con = con)
+    map(tbl_in_list, test_arrow_roundtrip, con = con)
   },
 
   #

R/spec-driver-data-type.R

@@ -87,7 +87,7 @@ test_data_type <- function(ctx, dbObj) {
     }
   )
 
-  lapply(
+  map(
     compact(expected_data_types),
     expect_has_data_type
   )
@@ -96,7 +96,7 @@ test_data_type <- function(ctx, dbObj) {
 
   #' As-is objects (i.e., wrapped by [I()]) must be
   #' supported and return the same results as their unwrapped counterparts.
-  lapply(
+  map(
     compact(expected_data_types),
     function(value) {
       if (!is.null(value)) {

R/spec-meta-bind-.R

@@ -77,7 +77,7 @@ test_select_bind_expr <- function(
 get_placeholder_funs <- function(ctx, requires_names = NULL) {
   placeholder_fun <- ctx$tweaks$placeholder_pattern
   if (is.character(placeholder_fun)) {
-    placeholder_funs <- lapply(placeholder_fun, make_placeholder_fun)
+    placeholder_funs <- map(placeholder_fun, make_placeholder_fun)
   } else if (is.function(placeholder_fun)) {
     placeholder_funs <- list(placeholder_fun)
   } else {

R/spec-meta-bind-expr.R

@@ -361,7 +361,7 @@ spec_meta_bind_expr <- function(
       test_select_bind_expr(
         arrow = arrow,
         bind = bind,
-        lapply(c(get_texts(), NA_character_), factor),
+        map(c(get_texts(), NA_character_), factor),
         warn = if (bind == "df") TRUE,
         dbitest_version = if (arrow == "query" && bind == "df") "1.7.99.13"
       )

R/spec-result-roundtrip.R

@@ -60,7 +60,7 @@ spec_result_roundtrip <- list(
   data_date = function(ctx, con) {
     #' - coercible using [as.Date()] for dates,
     as_date_equals_to <- function(x) {
-      lapply(x, function(xx) {
+      map(x, function(xx) {
         function(value) as.Date(value) == xx
       })
     }
@@ -87,7 +87,7 @@ spec_result_roundtrip <- list(
   data_time = function(ctx, con) {
     #' - coercible using [hms::as_hms()] for times,
     as_hms_equals_to <- function(x) {
-      lapply(x, function(xx) {
+      map(x, function(xx) {
         function(value) hms::as_hms(value) == xx
       })
     }
@@ -148,7 +148,7 @@ spec_result_roundtrip <- list(
     }
 
     char_values <- paste0("2015-01-", sprintf("%.2d", 1:12))
-    values <- lapply(char_values, as_numeric_date)
+    values <- map(char_values, as_numeric_date)
     sql_names <- ctx$tweaks$date_cast(char_values)
 
     test_select_with_null(.ctx = ctx, con, !!!setNames(values, sql_names))
@@ -202,7 +202,7 @@ spec_result_roundtrip <- list(
   #'   to the true value
   data_64_bit_numeric = function(ctx, con) {
     as_numeric_identical_to <- function(x) {
-      lapply(x, function(xx) {
+      map(x, function(xx) {
         function(value) as.numeric(value) == xx
       })
     }
@@ -216,7 +216,7 @@ spec_result_roundtrip <- list(
   #' - Loss of precision when converting to numeric gives a warning
   data_64_bit_numeric_warning = function(ctx, con) {
     as_numeric_equals_to <- function(x) {
-      lapply(x, function(xx) {
+      map(x, function(xx) {
         function(value) isTRUE(all.equal(as.numeric(value), xx))
       })
     }
@@ -246,7 +246,7 @@ spec_result_roundtrip <- list(
   #'   of the data
   data_64_bit_lossless = function(ctx, con) {
     as_character_equals_to <- function(x) {
-      lapply(x, function(xx) {
+      map(x, function(xx) {
         function(value) as.character(value) == xx
       })
     }
@@ -280,8 +280,8 @@ test_select <- function(
   values <- list2(...)
 
   value_is_formula <- map_lgl(values, is.call)
-  names(values)[value_is_formula] <- lapply(values[value_is_formula], "[[", 2L)
-  values[value_is_formula] <- lapply(
+  names(values)[value_is_formula] <- map(values[value_is_formula], "[[", 2L)
+  values[value_is_formula] <- map(
     values[value_is_formula],
     function(x) {
       eval(x[[3]], envir = .envir)
@@ -398,7 +398,7 @@ coercible_to_time <- function(x) {
 }
 
 as_timestamp_equals_to <- function(x) {
-  lapply(x, function(xx) {
+  map(x, function(xx) {
     function(value) as.POSIXct(value) == xx
   })
 }

R/spec-sql-append-table.R

@@ -470,16 +470,16 @@ spec_sql_append_table <- list(
   append_roundtrip_mixed = function(con) {
     #' Mixing column types in the same table is supported.
     data <- list("a", 1L, 1.5)
-    data <- lapply(data, c, NA)
+    data <- map(data, c, NA)
     expanded <- expand.grid(a = data, b = data, c = data)
-    tbl_in_list <- lapply(
+    tbl_in_list <- map(
       seq_len(nrow(expanded)),
       function(i) {
-        as.data.frame(lapply(expanded[i, ], unlist, recursive = FALSE))
+        as.data.frame(map(expanded[i, ], unlist, recursive = FALSE))
       }
     )
 
-    lapply(tbl_in_list, test_table_roundtrip, con = con)
+    map(tbl_in_list, test_table_roundtrip, con = con)
   },
 
   append_table_name = function(ctx, con) {

R/spec-sql-list-objects.R

@@ -25,7 +25,7 @@ spec_sql_list_objects <- list(
     #' The `table` column is of type list.
     expect_equal(typeof(objects$table), "list")
     #' Each object in this list is suitable for use as argument in [dbQuoteIdentifier()].
-    expect_error(lapply(objects$table, dbQuoteIdentifier, conn = con), NA)
+    expect_error(map(objects$table, dbQuoteIdentifier, conn = con), NA)
 
     #' The `is_prefix` column is a logical.
     expect_type(objects$is_prefix, "logical")

R/spec-sql-quote-literal.R

@@ -84,9 +84,9 @@ spec_sql_quote_literal <- list(
       expect_equal(nrow(x_out), 1L)
 
       is_logical <- map_lgl(x, is.logical)
-      x_out[is_logical] <- lapply(x_out[is_logical], as.logical)
+      x_out[is_logical] <- map(x_out[is_logical], as.logical)
       is_numeric <- map_lgl(x, is.numeric)
-      x_out[is_numeric] <- lapply(x_out[is_numeric], as.numeric)
+      x_out[is_numeric] <- map(x_out[is_numeric], as.numeric)
       expect_equal(as.list(unname(x_out)), x)
     }
 

R/spec-sql-write-table.R

@@ -676,16 +676,16 @@ spec_sql_write_table <- list(
   roundtrip_mixed = function(ctx, con) {
     #' Mixing column types in the same table is supported.
     data <- list("a", 1L, 1.5)
-    data <- lapply(data, c, NA)
+    data <- map(data, c, NA)
     expanded <- expand.grid(a = data, b = data, c = data)
-    tbl_in_list <- lapply(
+    tbl_in_list <- map(
       seq_len(nrow(expanded)),
       function(i) {
-        as.data.frame(lapply(expanded[i, ], unlist, recursive = FALSE))
+        as.data.frame(map(expanded[i, ], unlist, recursive = FALSE))
       }
     )
 
-    lapply(tbl_in_list, test_table_roundtrip, con = con)
+    map(tbl_in_list, test_table_roundtrip, con = con)
   },
 
   #'

R/spec-stress-connection.R

@@ -6,7 +6,7 @@ spec_stress_connection <- list(
   simultaneous_connections = function(ctx) {
     #' Open 50 simultaneous connections
     cons <- list()
-    on.exit(try_silent(lapply(cons, dbDisconnect)), add = TRUE)
+    on.exit(try_silent(map(cons, dbDisconnect)), add = TRUE)
     for (i in seq_len(50L)) {
       cons <- c(cons, connect(ctx))
     }

R/tweaks.R

@@ -128,7 +128,7 @@
 make_tweaks <- function(envir = parent.frame()) {
   fmls <- tweak_names[-length(tweak_names)]
 
-  tweak_quoted <- lapply(setNames(nm = names(fmls)), as.name)
+  tweak_quoted <- map(setNames(nm = names(fmls)), as.name)
   tweak_quoted <- c(tweak_quoted)
   list_call <- as.call(c(quote(list), tweak_quoted[-1]))
 

tests/testthat/test-consistency.R

@@ -3,7 +3,7 @@ test_that("no unnamed specs", {
   vicinity <- NULL
   if (any(names(tests) == "")) {
     vicinity <- sort(unique(unlist(
-      lapply(which(names(tests) == ""), "+", -1:1)
+      map(which(names(tests) == ""), "+", -1:1)
     )))
     vicinity <- vicinity[names(tests)[vicinity] != ""]
   }