Change variable width error to warning. Fixes #277

hadley · hadley · commit 14ac5e401ddb · 2011-12-21T16:51:41.000-06:00
diff --git a/R/position-collide.r b/R/position-collide.r
@@ -20,7 +20,8 @@ collide <- function(data, width = NULL, name, strategy, check.width = TRUE) {
     widths <- unique(with(data, xmax - xmin))
     widths <- widths[!is.na(widths)]
     if (!zero_range(range(widths))) {
-      stop(name, " requires constant width", call. = FALSE)
+      warning(name, " requires constant width: output may be incorrect", 
+        call. = FALSE)
     }
     width <- widths[1]
   }

Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,8 @@ collide <- function(data, width = NULL, name, strategy, check.width = TRUE) {`
`20`	`20`	`widths <- unique(with(data, xmax - xmin))`
`21`	`21`	`widths <- widths[!is.na(widths)]`
`22`	`22`	`if (!zero_range(range(widths))) {`
`23`		`- stop(name, " requires constant width", call. = FALSE)`
	`23`	`+ warning(name, " requires constant width: output may be incorrect",`
	`24`	`+ call. = FALSE)`
`24`	`25`	`}`
`25`	`26`	`width <- widths[1]`
`26`	`27`	`}`