From 866f602089ee22c246479de6bdcfbf1e79f1ad31 Mon Sep 17 00:00:00 2001
From: Jonathan Keane <jkeane@gmail.com>
Date: Sat, 20 Jul 2024 15:22:16 -0500
Subject: [PATCH] dplyr::

---
 r/R/dplyr-mutate.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/r/R/dplyr-mutate.R b/r/R/dplyr-mutate.R
index fcb1cedbbb1..03659f57357 100644
--- a/r/R/dplyr-mutate.R
+++ b/r/R/dplyr-mutate.R
@@ -77,12 +77,12 @@ mutate.arrow_dplyr_query <- function(.data,
       agg_query$aggregations <- mask$.aggregations
       agg_query <- collapse.arrow_dplyr_query(agg_query)
       if (length(grv)) {
-        out <- left_join(out, agg_query, by = grv)
+        out <- dplyr::left_join(out, agg_query, by = grv)
       } else {
         # If there are no group_by vars, add a scalar column to both and join on that
         agg_query$selected_columns[["..tempjoin"]] <- Expression$scalar(1L)
         out$selected_columns[["..tempjoin"]] <- Expression$scalar(1L)
-        out <- left_join(out, agg_query, by = "..tempjoin")
+        out <- dplyr::left_join(out, agg_query, by = "..tempjoin")
       }
     }