Use as.integer() from extension

Author: krlmlr

R/aaa-meta.R

@@ -1,4 +1,5 @@
 # Overwritten in meta.R
+meta_ext_register <- function(...) {}
 meta_rel_register <- function(...) {}
 meta_rel_register_df <- function(...) {}
 meta_rel_register_file <- function(...) {}

R/relational-duckdb.R

@@ -38,7 +38,6 @@ duckplyr_macros <- c(
   # "as.Date" = '(x) AS strptime(x, \'%Y-%m-%d\')',
 
   "grepl" = "(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)",
-  "as.integer" = "(x) AS CAST(x AS int32)",
   "if_else" = "(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)",
   "|" = "(x, y) AS (x OR y)",
   "&" = "(x, y) AS (x AND y)",

R/relational.R

@@ -225,6 +225,7 @@ rel_translate <- function(
           "/" = "___divide",
           "log10" = "___log10",
           "log" = "___log",
+          "as.integer" = "r_base::as.integer",
           NULL
         )
 
@@ -263,6 +264,9 @@ rel_translate <- function(
 
         if (name %in% names(aliases)) {
           name <- aliases[[name]]
+          if (grepl("^r_base::", name)) {
+            meta_ext_register()
+          }
         }
         # name <- aliases[name] %|% name
 
@@ -309,7 +313,8 @@ rel_translate <- function(
           )
 
           if (name == "row_number") {
-            fun <- relexpr_function("as.integer", list(fun))
+            fun <- relexpr_function("r_base::as.integer", list(fun))
+            meta_ext_register()
           }
         }
         fun