Add sql_expr_matches method for Redshift connection.

tidyverse · Jun 20, 2024 · a02974c · a02974c
1 parent 860bd6a
commit a02974c
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: dbplyr
 Title: A 'dplyr' Back End for Databases
-Version: 2.5.0.9000
+Version: 2.5.0.9001
 Authors@R: c(
     person("Hadley", "Wickham", , "[email protected]", role = c("aut", "cre")),
     person("Maximilian", "Girlich", role = "aut"),

diff --git a/NAMESPACE b/NAMESPACE
@@ -278,6 +278,8 @@ S3method(sql_expr_matches,Oracle)
 S3method(sql_expr_matches,PostgreSQL)
 S3method(sql_expr_matches,PostgreSQLConnection)
 S3method(sql_expr_matches,PqConnection)
+S3method(sql_expr_matches,Redshift)
+S3method(sql_expr_matches,RedshiftConnection)
 S3method(sql_expr_matches,SQLiteConnection)
 S3method(sql_join,DBIConnection)
 S3method(sql_join_suffix,DBIConnection)

diff --git a/R/backend-redshift.R b/R/backend-redshift.R
@@ -34,6 +34,12 @@ redshift_round <- function(x, digits = 0L) {
   sql_expr(round(((!!x)) %::% float, !!digits))
 }
 
+#' @export
+sql_expr_matches.RedshiftConnection <- sql_expr_matches.DBIConnection
+
+#' @export
+sql_expr_matches.Redshift <- sql_expr_matches.RedshiftConnection
+
 #' @export
 sql_translation.RedshiftConnection <- function(con) {
   postgres <- sql_translation.PostgreSQL(con)