Fix a few GeomInterval->Geom that I missed

tidyverse · Jul 7, 2008 · e3ccb4e · e3ccb4e
1 parent 8e64b25
commit e3ccb4e
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 4 deletions.
diff --git a/R/geom-error.r b/R/geom-error.r
@@ -1,4 +1,4 @@
-GeomErrorbar <- proto(GeomInterval, {
+GeomErrorbar <- proto(Geom, {
   objname <- "errorbar"
   desc <- "Error bars"
   icon <- function(.) {

diff --git a/R/geom-ribbon-.r b/R/geom-ribbon-.r
@@ -1,4 +1,4 @@
-GeomRibbon <- proto(GeomInterval, {
+GeomRibbon <- proto(Geom, {
   default_stat <- function(.) StatIdentity
   default_aes <- function(.) aes(colour="grey60", fill="grey80", size=0.5, linetype=1)
   required_aes <- c("x", "ymin", "ymax")

diff --git a/R/geom-smooth.r b/R/geom-smooth.r
@@ -1,4 +1,4 @@
-GeomSmooth <- proto(GeomInterval, {
+GeomSmooth <- proto(Geom, {
   draw <- function(., data, scales, coordinates, ...) {
     data$fill <- alpha(data$fill, data$alpha)
     gList(

diff --git a/R/xxx.r b/R/xxx.r
@@ -17,7 +17,6 @@ geom_density_2d <- GeomDensity2d$build_accessor()
 geom_errorbar <- GeomErrorbar$build_accessor()
 geom_histogram <- GeomHistogram$build_accessor()
 geom_hline <- GeomHline$build_accessor()
-geom_interval <- GeomInterval$build_accessor()
 geom_jitter <- GeomJitter$build_accessor()
 geom_line <- GeomLine$build_accessor()
 geom_linerange <- GeomLinerange$build_accessor()