Revert stat_summary grouping. Fixes #739 and #732

wch · wch · commit deb4c50479c0 · 2013-02-28T21:37:18.000-06:00
diff --git a/R/stat-summary.r b/R/stat-summary.r
@@ -136,9 +136,6 @@ StatSummary <- proto(Stat, {
       }
     }
 
-    # Each x location should be in a separate group
-    data$group <- as.integer(interaction(data$group, data$x))
-
     summarise_by_x(data, fun, ...)
   }
   

Original file line number	Diff line number	Diff line change
`@@ -136,9 +136,6 @@ StatSummary <- proto(Stat, {`
`136`	`136`	`}`
`137`	`137`	`}`
`138`	`138`
`139`		`- # Each x location should be in a separate group`
`140`		`- data$group <- as.integer(interaction(data$group, data$x))`
`141`		`-`
`142`	`139`	`summarise_by_x(data, fun, ...)`
`143`	`140`	`}`
`144`	`141`