Reapply #4750 to quick patch release

thomasp85 · web-flow · commit b6e1376d84b2 · 2022-04-26T10:27:36.000+02:00
diff --git a/R/scale-discrete-.r b/R/scale-discrete-.r
@@ -170,6 +170,6 @@ c.mapped_discrete <- function(..., recursive = FALSE) {
   new_mapped_discrete(NextMethod())
 }
 #' @export
-as.data.frame.mapped_discrete <- function (x, ..., stringsAsFactors = default.stringsAsFactors()) {
-  as.data.frame.vector(x = unclass(x), ..., stringsAsFactors = stringsAsFactors)
+as.data.frame.mapped_discrete <- function (x, ...) {
+  as.data.frame.vector(x = unclass(x), ...)
 }

Original file line number	Diff line number	Diff line change
`@@ -170,6 +170,6 @@ c.mapped_discrete <- function(..., recursive = FALSE) {`
`170`	`170`	`new_mapped_discrete(NextMethod())`
`171`	`171`	`}`
`172`	`172`	`#' @export`
`173`		`-as.data.frame.mapped_discrete <- function (x, ..., stringsAsFactors = default.stringsAsFactors()) {`
`174`		`- as.data.frame.vector(x = unclass(x), ..., stringsAsFactors = stringsAsFactors)`
	`173`	`+as.data.frame.mapped_discrete <- function (x, ...) {`
	`174`	`+ as.data.frame.vector(x = unclass(x), ...)`
`175`	`175`	`}`