(arrow) branch main updated: MINOR: [R] fix no visible global function definition: left_join (#41542)

[npr]

This is an automated email from the ASF dual-hosted git repository.

npr pushed a commit to branch main
in repository https://gitbox.apache.org/repos/asf/arrow.git


The following commit(s) were added to refs/heads/main by this push:
     new d10ebf055a MINOR: [R] fix no visible global function definition: 
left_join (#41542)
d10ebf055a is described below

commit d10ebf055a393c94a693097db1dca08ff86745bd
Author: Neal Richardson <neal.p.richard...@gmail.com>
AuthorDate: Mon May 6 09:28:22 2024 -0400

    MINOR: [R] fix no visible global function definition: left_join (#41542)
    
    ### Rationale for this change
    
    Followup to #41350, fixes a check NOTE that caused.
    
    ### What changes are included in this PR?
    
    `dplyr::` in two places.
    
    ### Are these changes tested?
    
    Check will be clean.
    
    ### Are there any user-facing changes?
    
    🙅
---
 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 880f7799e6..72882b6afd 100644
--- a/r/R/dplyr-mutate.R
+++ b/r/R/dplyr-mutate.R
@@ -84,12 +84,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")
     }
   }