Fix scaling bug

gsk3 · Oct 9, 2008 · 6c78b64 · 6c78b64
1 parent 75a28a7
commit 6c78b64
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/scale-.r b/R/scale-.r
@@ -55,7 +55,7 @@ Scale <- proto(TopLevel, expr={
 
     input <- .$input()
     if (length(input) == 1 && input %in% c("x", "y")) {
-      matches <- grep(paste("^", input, sep =""), names(df))
+      matches <- aes_to_scale(names(df)) == input
       input <- names(df)[matches]
     }
     l_ply(input, function(var) .$train(df[[var]]))