Warn on ptype2 incompatibility

Author: teunbrand

R/utilities.r

@@ -669,11 +669,13 @@ with_ordered_restart <- function(expr, .call) {
         ")"
       )
 
-      deprecate_soft0(
-        "3.4.0",
-        I(msg),
-        details = desc
-      )
+      if (inherits(cnd, "vctrs_error_ptype2")) {
+        deprecate_soft0(
+          "3.4.0",
+          I(msg),
+          details = desc
+        )
+      }
 
       x_arg <- cnd[["x_arg"]]
       y_arg <- cnd[["y_arg"]]