Merge pull request #4036 from thomasp85/mapped-discrete-data-frame

thomasp85 · web-flow · commit 710b42af2e24 · 2020-06-08T10:13:09.000+02:00
Add as.data.frame method to mapped_discrete
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)
+}

Original file line number	Diff line number	Diff line change
`@@ -157,3 +157,7 @@ c.mapped_discrete <- function(..., recursive = FALSE) {`
`157`	`157`	`value <- as.numeric(unclass(value))`
`158`	`158`	`new_mapped_discrete(NextMethod())`
`159`	`159`	`}`
	`160`	`+#' @export`
	`161`	`+as.data.frame.mapped_discrete <- function (x, ..., stringsAsFactors = default.stringsAsFactors()) {`
	`162`	`+ as.data.frame.vector(x = unclass(x), ..., stringsAsFactors = stringsAsFactors)`
	`163`	`+}`