avoid dropping attributes as some revdeps rely on names for indexing

thomasp85 · thomasp85 · commit 07c503ce0cdf · 2022-10-05T12:03:32.000+02:00
diff --git a/R/scale-discrete-.r b/R/scale-discrete-.r
@@ -149,7 +149,6 @@ new_mapped_discrete <- function(x = double()) {
 }
 mapped_discrete <- function(x = double()) {
   if (is.null(x)) return(NULL)
-  x <- as.vector(x)
   new_mapped_discrete(vec_cast(x, double()))
 }
 is_mapped_discrete <- function(x) inherits(x, "mapped_discrete")

Original file line number	Diff line number	Diff line change
`@@ -149,7 +149,6 @@ new_mapped_discrete <- function(x = double()) {`
`149`	`149`	`}`
`150`	`150`	`mapped_discrete <- function(x = double()) {`
`151`	`151`	`if (is.null(x)) return(NULL)`
`152`		`- x <- as.vector(x)`
`153`	`152`	`new_mapped_discrete(vec_cast(x, double()))`
`154`	`153`	`}`
`155`	`154`	`is_mapped_discrete <- function(x) inherits(x, "mapped_discrete")`