Make vec_proxy_compare() compatible with older dplyr versions

r-lib · Aug 27, 2020 · a672f8c · a672f8c
1 parent 4a69d71
commit a672f8c
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/compare.R b/R/compare.R
@@ -49,6 +49,10 @@
 #' vec_sort(df)
 vec_proxy_compare <- function(x, ...) {
   if (!missing(...)) {
+    # For backward compatibility with older dplyr versions
+    if (match_relax(...)) {
+      return(vec_proxy_order(x))
+    }
     ellipsis::check_dots_empty()
   }
   return(.Call(vctrs_proxy_compare, x))
@@ -59,6 +63,10 @@ vec_proxy_compare.default <- function(x, ...) {
   stop_native_implementation("vec_proxy_compare.default")
 }
 
+match_relax <- function(..., relax = FALSE) {
+  relax
+}
+
 #' @rdname vec_proxy_compare
 #' @export
 vec_proxy_order <- function(x, ...) {