Eliminate ununused position_dodge2 code

hadley · hadley · commit f35712859073 · 2018-05-09T16:12:13.000-05:00
diff --git a/R/position-dodge2.r b/R/position-dodge2.r
@@ -88,9 +88,6 @@ pos_dodge2 <- function(df, width, n = NULL, padding = 0.1) {
     df$new_width <- (df$xmax - df$xmin) / n
   }
 
-  df$xmin <- df$x - (df$new_width / 2)
-  df$xmax <- df$x + (df$new_width / 2)
-
   # Find the total width of each group of elements
   group_sizes <- stats::aggregate(
     list(size = df$new_width),

Original file line number	Diff line number	Diff line change
`@@ -88,9 +88,6 @@ pos_dodge2 <- function(df, width, n = NULL, padding = 0.1) {`
`88`	`88`	`df$new_width <- (df$xmax - df$xmin) / n`
`89`	`89`	`}`
`90`	`90`
`91`		`- df$xmin <- df$x - (df$new_width / 2)`
`92`		`- df$xmax <- df$x + (df$new_width / 2)`
`93`		`-`
`94`	`91`	`# Find the total width of each group of elements`
`95`	`92`	`group_sizes <- stats::aggregate(`
`96`	`93`	`list(size = df$new_width),`