diff --git a/NAMESPACE b/NAMESPACE index 802cf6c58..c6bbf3c90 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -255,16 +255,16 @@ S3method(sql_escape_datetime,DBIConnection) S3method(sql_escape_datetime,MariaDBConnection) S3method(sql_escape_datetime,MySQL) S3method(sql_escape_datetime,MySQLConnection) -S3method(sql_escape_ident,DBIConnection) S3method(sql_escape_ident,TestConnection) +S3method(sql_escape_ident,default) S3method(sql_escape_logical,"Microsoft SQL Server") S3method(sql_escape_logical,ACCESS) S3method(sql_escape_logical,DBIConnection) S3method(sql_escape_logical,SQLiteConnection) S3method(sql_escape_raw,"Microsoft SQL Server") S3method(sql_escape_raw,DBIConnection) -S3method(sql_escape_string,DBIConnection) S3method(sql_escape_string,TestConnection) +S3method(sql_escape_string,default) S3method(sql_expr_matches,DBIConnection) S3method(sql_expr_matches,MariaDBConnection) S3method(sql_expr_matches,MySQL) @@ -416,7 +416,7 @@ S3method(supports_window_clause,PqConnection) S3method(supports_window_clause,Redshift) S3method(supports_window_clause,RedshiftConnection) S3method(supports_window_clause,SQLiteConnection) -S3method(table_path_components,DBIConnection) +S3method(table_path_components,default) S3method(tail,tbl_lazy) S3method(tally,tbl_lazy) S3method(tbl,src_dbi) diff --git a/R/simulate.R b/R/simulate.R index 04a950c94..35890f0e1 100644 --- a/R/simulate.R +++ b/R/simulate.R @@ -27,7 +27,7 @@ sql_escape_ident <- function(con, x) { UseMethod("sql_escape_ident") } #' @export -sql_escape_ident.DBIConnection <- function(con, x) { +sql_escape_ident.default <- function(con, x) { dbQuoteIdentifier(con, x) } #' @export @@ -43,7 +43,7 @@ sql_escape_string <- function(con, x) { UseMethod("sql_escape_string") } #' @export -sql_escape_string.DBIConnection <- function(con, x) { +sql_escape_string.default <- function(con, x) { dbQuoteString(con, x) } #' @export diff --git a/R/table-name.R b/R/table-name.R index d8f7c62bc..628f25ffe 100644 --- a/R/table-name.R +++ b/R/table-name.R @@ -113,7 +113,7 @@ table_path_components <- function(x, con) { } #' @export -table_path_components.DBIConnection <- function(x, con) { +table_path_components.default <- function(x, con) { quote_char <- substr(sql_escape_ident(con, ""), 1, 1) lapply(x, function(x) {