From 21c6e6be2666a5d9fc5eadda8108fcd1001a4cfd Mon Sep 17 00:00:00 2001
From: Maximilian Muecke <muecke.maximilian@gmail.com>
Date: Wed, 4 Mar 2026 09:28:19 +0100
Subject: [PATCH] refactor: use more purrr

---
 NAMESPACE             | 2 --
 R/databricks-dbplyr.R | 1 -
 R/queries.R           | 2 +-
 R/request-helpers.R   | 2 +-
 4 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index fb21b573..163fffbb 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -312,8 +312,6 @@ importFrom(glue,glue_sql)
 importFrom(methods,new)
 importFrom(methods,setClass)
 importFrom(methods,setMethod)
-importFrom(purrr,map2_chr)
-importFrom(purrr,map_chr)
 importFrom(rlang,"%||%")
 importFrom(rlang,.data)
 importFrom(stats,setNames)
diff --git a/R/databricks-dbplyr.R b/R/databricks-dbplyr.R
index 965a701d..41bd76a5 100644
--- a/R/databricks-dbplyr.R
+++ b/R/databricks-dbplyr.R
@@ -9,7 +9,6 @@
 #' @importFrom dbplyr translate_sql dbplyr_edition sql_query_save simulate_spark_sql db_collect
 #' @importFrom dplyr copy_to
 #' @importFrom glue glue_sql
-#' @importFrom purrr map_chr map2_chr
 #' @name databricks-dbplyr
 NULL
 
diff --git a/R/queries.R b/R/queries.R
index 2c82b20e..b8275fb2 100644
--- a/R/queries.R
+++ b/R/queries.R
@@ -191,7 +191,7 @@ db_query_update <- function(
     tags = tags
   )
   # keep non-null values
-  body$query <- Filter(length, query)
+  body$query <- purrr::compact(query)
   # dynamically generate update mask
   body$update_mask <- paste(names(body$query), collapse = ",")
 
diff --git a/R/request-helpers.R b/R/request-helpers.R
index 0e527d71..459ec5c3 100644
--- a/R/request-helpers.R
+++ b/R/request-helpers.R
@@ -75,7 +75,7 @@ db_request <- function(
   }
 
   if (!is.null(body)) {
-    body <- Filter(length, body)
+    body <- purrr::compact(body)
     req <- req |>
       httr2::req_body_json(body, ...)
   }