Simulate is a pure S3 class

tidyverse · Mar 4, 2024 · 5197775 · 5197775
1 parent 4708ae6
commit 5197775
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/backend-mysql.R b/R/backend-mysql.R
@@ -267,7 +267,9 @@ sql_escape_datetime.MySQL <- sql_escape_datetime.MariaDBConnection
 # dbQuoteIdentifier() for RMySQL lacks handling of SQL objects
 #' @export
 sql_escape_ident.MySQLConnection <- function(con, x) {
-  if (methods::is(x, "SQL")) {
+  if (!isS4(con)) { # for simulate_mysql()
+    NextMethod()
+  } else if (methods::is(x, "SQL")) {
     x
   } else {
     DBI::dbQuoteIdentifier(con, x)