ARROW-14575: [R] Allow functions with pkg:: prefixes

r/R/arrow-datum.R

@@ -113,10 +113,10 @@ Ops.ArrowDatum <- function(e1, e2) {
 #' @export
 Math.ArrowDatum <- function(x, ..., base = exp(1), digits = 0) {
   switch(.Generic,
-    abs = ,
+    abs = eval_array_expression("abs_checked", x),
+    ceiling = eval_array_expression("ceil", x),
     sign = ,
     floor = ,
-    ceiling = ,
     trunc = ,
     acos = ,
     asin = ,

r/R/dplyr-datetime-helpers.R

@@ -27,16 +27,16 @@ check_time_locale <- function(locale = Sys.getlocale("LC_TIME")) {
 }
 
 .helpers_function_map <- list(
-  "dminutes" = list(60, "s"),
-  "dhours" = list(3600, "s"),
-  "ddays" = list(86400, "s"),
-  "dweeks" = list(604800, "s"),
-  "dmonths" = list(2629800, "s"),
-  "dyears" = list(31557600, "s"),
-  "dseconds" = list(1, "s"),
-  "dmilliseconds" = list(1, "ms"),
-  "dmicroseconds" = list(1, "us"),
-  "dnanoseconds" = list(1, "ns")
+  "lubridate::dminutes" = list(60, "s"),
+  "lubridate::dhours" = list(3600, "s"),
+  "lubridate::ddays" = list(86400, "s"),
+  "lubridate::dweeks" = list(604800, "s"),
+  "lubridate::dmonths" = list(2629800, "s"),
+  "lubridate::dyears" = list(31557600, "s"),
+  "lubridate::dseconds" = list(1, "s"),
+  "lubridate::dmilliseconds" = list(1, "ms"),
+  "lubridate::dmicroseconds" = list(1, "us"),
+  "lubridate::dnanoseconds" = list(1, "ns")
 )
 make_duration <- function(x, unit) {
   # TODO(ARROW-15862): remove first cast to int64

r/R/dplyr-funcs-conditional.R

@@ -16,7 +16,7 @@
 # under the License.
 
 register_bindings_conditional <- function() {
-  register_binding("coalesce", function(...) {
+  register_binding("dplyr::coalesce", function(...) {
     args <- list2(...)
     if (length(args) < 1) {
       abort("At least one argument must be supplied to coalesce()")
@@ -60,14 +60,14 @@ register_bindings_conditional <- function() {
     build_expr("if_else", condition, true, false)
   }
 
-  register_binding("if_else", if_else_binding)
+  register_binding("dplyr::if_else", if_else_binding)
 
   # Although base R ifelse allows `yes` and `no` to be different classes
-  register_binding("ifelse", function(test, yes, no) {
+  register_binding("base::ifelse", function(test, yes, no) {
     if_else_binding(condition = test, true = yes, false = no)
   })
 
-  register_binding("case_when", function(...) {
+  register_binding("dplyr::case_when", function(...) {
     formulas <- list2(...)
     n <- length(formulas)
     if (n == 0) {