Permalink
Browse files

stat_vline: Look for 'xintercept' instead of 'intercept'

  • Loading branch information...
wch committed Jul 18, 2012
1 parent db28fb6 commit 3debefc5c372bffb4cb38859be6cf2b15b9ee6fe
Showing with 4 additions and 4 deletions.
  1. +4 −4 R/stat-vline.r
View
@@ -41,9 +41,9 @@ StatAbline <- proto(Stat, {
#' @examples
#' # see geom_vline
stat_vline <- function (mapping = NULL, data = NULL, geom = "vline", position = "identity",
-intercept, ...) {
+xintercept, ...) {
StatVline$new(mapping = mapping, data = data, geom = geom, position = position,
- intercept = intercept, ...)
+ xintercept = xintercept, ...)
}
StatVline <- proto(Stat, {
@@ -74,9 +74,9 @@ StatVline <- proto(Stat, {
#' @examples
#' # see geom_hline
stat_hline <- function (mapping = NULL, data = NULL, geom = "hline", position = "identity",
-intercept, ...) {
+yintercept, ...) {
StatHline$new(mapping = mapping, data = data, geom = geom, position = position,
- intercept = intercept, ...)
+ yintercept = yintercept, ...)
}
StatHline <- proto(Stat, {

0 comments on commit 3debefc

Please sign in to comment.