prevent name-dropping

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

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