Add as.data.frame method to mapped_discrete that strips the class so that recycling is possible

Author: thomasp85

.gitignore

@@ -13,3 +13,4 @@ revdep/library
 revdep/checks.noindex
 revdep/library.noindex
 revdep/data.sqlite
+revdep/cloud.noindex

NAMESPACE

@@ -11,6 +11,7 @@ S3method("[<-",uneval)
 S3method("[[",ggproto)
 S3method("[[<-",uneval)
 S3method(.DollarNames,ggproto)
+S3method(as.data.frame,mapped_discrete)
 S3method(as.list,ggproto)
 S3method(autolayer,default)
 S3method(autoplot,default)

R/scale-discrete-.r

@@ -157,3 +157,7 @@ c.mapped_discrete <- function(..., recursive = FALSE) {
   value <- as.numeric(unclass(value))
   new_mapped_discrete(NextMethod())
 }
+#' @export
+as.data.frame.mapped_discrete <- function (x, ..., stringsAsFactors = default.stringsAsFactors()) {
+  as.data.frame.vector(x = unclass(x), ..., stringsAsFactors = stringsAsFactors)
+}