prevent name-dropping

tidyverse · Oct 21, 2024 · e9cad1a · e9cad1a
1 parent 4916e25
commit e9cad1a
Showing 1 changed file with 2 additions and 1 deletion.
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))
   },