Add as.data.frame method to mapped_discrete that strips the class so …

…that recycling is possible
tidyverse · May 28, 2020 · 1f1e785 · 1f1e785
1 parent f802c5e
commit 1f1e785
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -13,3 +13,4 @@ revdep/library
 revdep/checks.noindex
 revdep/library.noindex
 revdep/data.sqlite
+revdep/cloud.noindex
diff --git a/NAMESPACE b/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)

diff --git a/R/scale-discrete-.r b/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)
+}