Add setOldClass() calls

NEWS.md

@@ -1,5 +1,7 @@
 # dbplyr (development version)
 
+* Added `setOldClass()` calls for `"ident"` and `"ident_q"` classes for compatibility with dplyr 1.0.0 (#448, @krlmlr).
+
 * `str_detect()` translation for Postgres uses same argument names as stringr,
   and gains a `negate` argument (#444).
 

R/ident.R

@@ -26,15 +26,13 @@ ident <- function(...) {
   x <- c_character(...)
   structure(x, class = c("ident", "character"))
 }
-setOldClass(c("ident", "character"), ident())
 
 #' @export
 #' @rdname ident
 ident_q <- function(...) {
   x <- c_character(...)
   structure(x, class = c("ident_q", "ident", "character"))
 }
-# setOldClass(c("ident_q", "ident", "character"), ident_q())
 
 #' @export
 print.ident <- function(x, ...) cat(format(x, ...), sep = "\n")

R/zzz.R

@@ -17,6 +17,14 @@
   if (!methods::isClass("sql")) {
     setOldClass(c("sql", "character"), sql())
   }
+
+  if (!methods::isClass("ident")) {
+    setOldClass(c("ident", "sql", "character"), ident())
+  }
+
+  if (!methods::isClass("ident_q")) {
+    setOldClass(c("ident_q", "ident", "sql", "character"), ident_q())
+  }
 }
 
 register_s3_method <- function(pkg, generic, class, fun = NULL) {