add sql_translation method for duckdb

Author: ablack3

NAMESPACE

@@ -18,6 +18,7 @@ S3method(listDatabaseConnectorColumns,DatabaseConnectorDbiConnection)
 S3method(listDatabaseConnectorColumns,default)
 S3method(sql_escape_logical,DatabaseConnectorJdbcConnection)
 S3method(sql_query_select,DatabaseConnectorJdbcConnection)
+S3method(sql_translation,DatabaseConnectorDbiConnection)
 S3method(sql_translation,DatabaseConnectorJdbcConnection)
 export(DatabaseConnectorDriver)
 export(assertTempEmulationSchemaSet)

R/backend-DatabaseConnector.R

@@ -88,6 +88,16 @@ sql_translation.DatabaseConnectorJdbcConnection <- function(con) {
      rlang::abort("Sql dialect is not supported!")) 
 }
 
+#' @export
+#' @importFrom dbplyr sql_translation 
+sql_translation.DatabaseConnectorDbiConnection <- function(con) {
+  
+  switch(dbms(con),
+    "sqlite" = utils::getFromNamespace("sql_translation.SQLiteConnection", "dbplyr")(con),
+    "duckdb" = utils::getFromNamespace("sql_translation.duckdb_connection", "duckdb")(con),
+    NextMethod()) 
+}
+
 
 #' @importFrom dbplyr sql_escape_logical
 #' @export