Add rename_size = TRUE to GeomBar

R/geom-bar.r

@@ -147,5 +147,6 @@ GeomBar <- ggproto("GeomBar", GeomRect,
       lineend = lineend,
       linejoin = linejoin
     )
-  }
+  },
+  rename_size = TRUE
 )

R/geom-col.r

@@ -29,44 +29,5 @@ geom_col <- function(mapping = NULL, data = NULL,
 #' @usage NULL
 #' @export
 #' @include geom-rect.r
-GeomCol <- ggproto("GeomCol", GeomRect,
-  required_aes = c("x", "y"),
-
-  # These aes columns are created by setup_data(). They need to be listed here so
-  # that GeomRect$handle_na() properly removes any bars that fall outside the defined
-  # limits, not just those for which x and y are outside the limits
-  non_missing_aes = c("xmin", "xmax", "ymin", "ymax"),
-
-  setup_params = function(data, params) {
-    params$flipped_aes <- has_flipped_aes(data, params)
-    params
-  },
-
-  extra_params = c("na.rm", "orientation"),
-
-  setup_data = function(data, params) {
-    data$flipped_aes <- params$flipped_aes
-    data <- flip_data(data, params$flipped_aes)
-    data$width <- data$width %||%
-      params$width %||% (resolution(data$x, FALSE) * 0.9)
-    data <- transform(data,
-                      ymin = pmin(y, 0), ymax = pmax(y, 0),
-                      xmin = x - width / 2, xmax = x + width / 2, width = NULL
-    )
-    flip_data(data, params$flipped_aes)
-  },
-
-  draw_panel = function(self, data, panel_params, coord, lineend = "butt",
-                        linejoin = "mitre", width = NULL, flipped_aes = FALSE) {
-    # Hack to ensure that width is detected as a parameter
-    ggproto_parent(GeomRect, self)$draw_panel(
-      data,
-      panel_params,
-      coord,
-      lineend = lineend,
-      linejoin = linejoin
-    )
-  },
-
-  rename_size = TRUE
-)
+# TODO: deprecate this
+GeomCol <- ggproto("GeomCol", GeomBar)