如何在dbplyr中使用R代码创建自定义SQL函数？

library(DBI)
con <- dbConnect(RSQLite::SQLite(), dbname = "path_to_database")

my_custom_function <- function(x) {
  # R代码逻辑
  return(x * 2)
}

dbExecute(con, sql("CREATE FUNCTION my_custom_function(x INTEGER) RETURNS INTEGER
                   BEGIN
                     DECLARE result INTEGER;
                     SET result = <R代码执行语句>;
                     RETURN result;
                   END;"))

library(dplyr)
library(dbplyr)

my_table <- tbl(con, "table_name")

my_table %>%
  mutate(new_column = my_custom_function(existing_column))