fix a bug when overwrite a scale (issue #251)

tidyverse · Nov 1, 2011 · 283416b · 283416b
1 parent 6f723ff
commit 283416b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/scales-.r b/R/scales-.r
@@ -11,7 +11,7 @@ Scales <- setRefClass("Scales", fields = "scales", methods = list(
   },
   add = function(scale) {
     # Remove old scale for this aesthetic (if it exists)
-    scales <<- c(scales[!find(scale)], list(scale))
+    scales <<- c(scales[!find(scale$aesthetics)], list(scale))
   }, 
   clone = function() {
     new_scales <- lapply(scales, scale_clone)