DatabaseConnector support

[ablack3]

DatabaseConnector is DBI driver backend that supports multiple database systems using jdbc.

We would like to make sure dplyr sql translation dispatches correctly when using DatabaseConnector connections with dbplyr.

The approach we are trying is to define a translation environment for these connection in DatabaseConnector as follows.

#' @export
#' @importFrom dbplyr sql_translation 
sql_translation.DatabaseConnectorJdbcConnection <- function(con) {
  
  switch(dbms(con),
     "oracle" = utils::getFromNamespace("sql_translation.Oracle", "dbplyr")(con),
     "postgresql" = utils::getFromNamespace("sql_translation.PqConnection", "dbplyr")(con),
     "redshift" = utils::getFromNamespace("sql_translation.RedshiftConnection", "dbplyr")(con),
     "sql server" = utils::getFromNamespace("sql_translation.Microsoft SQL Server", "dbplyr")(con),
     "bigquery" = utils::getFromNamespace("sql_translation.BigQueryConnection", "bigrquery")(con),
     "spark" = utils::getFromNamespace("sql_translation.Spark SQL", "dbplyr")(con),
     "snowflake" = utils::getFromNamespace("sql_translation.Snowflake", "dbplyr")(con),
     "synapse" = utils::getFromNamespace("sql_translation.Microsoft SQL Server", "dbplyr")(con),
     rlang::abort("Sql dialect is not supported!")) 
}

Is this the best way to add dplyr support or should we add something to dbplyr to dispatch the correct translation environment.

We also found we needed to write the method sql_query_select.DatabaseConnectorJdbcConnection as well.