From a9d8d3b5667413e0e9d385046b39f976e6c0943a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kirill=20M=C3=BCller?= Date: Sun, 17 Dec 2023 18:47:06 +0100 Subject: [PATCH] Minor --- R/spec-result-roundtrip.R | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/R/spec-result-roundtrip.R b/R/spec-result-roundtrip.R index 6449ed6e4..16cef9d3b 100644 --- a/R/spec-result-roundtrip.R +++ b/R/spec-result-roundtrip.R @@ -265,14 +265,17 @@ test_select_with_null <- function(...) { } test_select <- function( + # Run time con, + # Spec time ..., .add_null = "none", + # Run time .ctx, .envir = parent.frame()) { values <- list2(...) - value_is_formula <- vapply(values, is.call, logical(1L)) + value_is_formula <- map_lgl(values, is.call) names(values)[value_is_formula] <- lapply(values[value_is_formula], "[[", 2L) values[value_is_formula] <- lapply( values[value_is_formula], @@ -282,7 +285,7 @@ test_select <- function( ) if (is.null(names(values))) { - sql_values <- lapply(values, as.character) + sql_values <- map(values, as.character) } else { sql_values <- names(values) }