swap mtfrm() for as.character()

teunbrand · teunbrand · commit f38cf14e263f · 2024-10-21T10:01:15.000+02:00
diff --git a/R/scale-.R b/R/scale-.R
@@ -1029,8 +1029,8 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,
     }
 
     # Breaks only occur only on values in domain
-    breaks <- setNames(mtfrm(breaks), names(breaks))
-    in_domain <- vec_set_intersect(breaks, mtfrm(limits))
+    breaks <- setNames(as.character(breaks), names(breaks))
+    in_domain <- vec_set_intersect(breaks, as.character(limits))
     structure(in_domain, pos = match(in_domain, breaks))
   },
 

Original file line number	Diff line number	Diff line change
`@@ -1029,8 +1029,8 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,`
`1029`	`1029`	`}`
`1030`	`1030`
`1031`	`1031`	`# Breaks only occur only on values in domain`
`1032`		`- breaks <- setNames(mtfrm(breaks), names(breaks))`
`1033`		`- in_domain <- vec_set_intersect(breaks, mtfrm(limits))`
	`1032`	`+ breaks <- setNames(as.character(breaks), names(breaks))`
	`1033`	`+ in_domain <- vec_set_intersect(breaks, as.character(limits))`
`1034`	`1034`	`structure(in_domain, pos = match(in_domain, breaks))`
`1035`	`1035`	`},`
`1036`	`1036`