Fix geom_step default icon

hadley · Dec 27, 2011 · e5c56e4 · e5c56e4
1 parent 4bd766a
commit e5c56e4
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/R/geom-step.r b/R/geom-step.r
@@ -17,7 +17,7 @@ geom_step <- function(aesthetics = list(), direction = "hv") {
 
 #' @S3method aes_icon step
 aes_icon.step <- function(geom) {
-  data.frame(x = 1:15, y = 1:15)
+  data.frame(x = seq(0, 1, length = 15), y = seq(0, 1, length = 15))
 }
 
 # Data and munching ----------------------------------------------------------

diff --git a/inst/tests/visual/icon-geom_step.png b/inst/tests/visual/icon-geom_step.png