From e2daf77d23dd60b9f693517c0ae609335e3a1217 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rasmus=20Skytte=20Randl=C3=B8v?= Date: Tue, 15 Oct 2024 12:55:28 +0200 Subject: [PATCH] chore(db_joins): Add visible binding to `modifyList` --- R/db_joins.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/db_joins.R b/R/db_joins.R index cb706848..6bf5e3f2 100644 --- a/R/db_joins.R +++ b/R/db_joins.R @@ -228,7 +228,7 @@ join_merger <- function(by, na_by) { combined_join <- list( "exprs" = c(purrr::pluck(by, "exprs"), purrr::pluck(na_by, "exprs")) ) |> - modifyList( + utils::modifyList( purrr::map2(purrr::discard_at(by, "exprs"), purrr::discard_at(na_by, "exprs"), ~ c(.x, .y)) ) class(combined_join) <- "dplyr_join_by" @@ -283,7 +283,7 @@ join_na_sql <- function(x, y, by = NULL, .dots = NULL) { # Get the translation for matching the na_by component of the join subquery_args <- purrr::discard_at(.dots, "na_by") |> - modifyList( + utils::modifyList( list( x = x, y = y,