Remove quosure compats (#3035)

And depend on rlang >= 0.3.0

Closes r-lib/rlang#669

Author: lionel-

DESCRIPTION

@@ -27,7 +27,7 @@ Imports:
     MASS,
     mgcv,
     reshape2,
-    rlang (>= 0.2.1),
+    rlang (>= 0.3.0),
     scales (>= 0.5.0),
     stats,
     tibble,
@@ -89,7 +89,6 @@ Collate:
     'backports.R'
     'bench.r'
     'bin.R'
-    'compat-quosures.R'
     'coord-.r'
     'coord-cartesian-.r'
     'coord-fixed.r'

NAMESPACE

@@ -4,7 +4,6 @@ S3method("$",ggproto)
 S3method("$",ggproto_parent)
 S3method("$<-",uneval)
 S3method("+",gg)
-S3method("[",quosures)
 S3method("[",uneval)
 S3method("[<-",uneval)
 S3method("[[",ggproto)
@@ -13,7 +12,6 @@ S3method(.DollarNames,ggproto)
 S3method(as.list,ggproto)
 S3method(autolayer,default)
 S3method(autoplot,default)
-S3method(c,quosures)
 S3method(drawDetails,zeroGrob)
 S3method(element_grob,element_blank)
 S3method(element_grob,element_line)
@@ -99,7 +97,6 @@ S3method(print,ggplot)
 S3method(print,ggplot2_bins)
 S3method(print,ggproto)
 S3method(print,ggproto_method)
-S3method(print,quosures)
 S3method(print,rel)
 S3method(print,theme)
 S3method(print,uneval)

R/compat-quosures.R

@@ -382,12 +382,12 @@ as_facets <- function(x) {
     f_as_facets(x)
   } else {
     vars <- as_quoted(x)
-    as_quosures(vars, globalenv(), named = TRUE)
+    rlang::as_quosures(vars, globalenv(), named = TRUE)
   }
 }
 f_as_facets <- function(f) {
   if (is.null(f)) {
-    return(as_quosures(list()))
+    return(rlang::as_quosures(list()))
   }
 
   env <- rlang::f_env(f) %||% globalenv()
@@ -398,7 +398,7 @@ f_as_facets <- function(f) {
   # `.` in formulas is ignored
   vars <- discard_dots(vars)
 
-  as_quosures(vars, env, named = TRUE)
+  rlang::as_quosures(vars, env, named = TRUE)
 }
 discard_dots <- function(x) {
   x[!vapply(x, identical, logical(1), as.name("."))]