call. = FALSE in stop

thomasp85 · thomasp85 · commit 9338d585a946 · 2016-02-01T09:44:48.000+01:00
diff --git a/R/layer.r b/R/layer.r
@@ -107,7 +107,7 @@ Layer <- ggproto("Layer", NULL,
     } else if (is.function(self$data)) {
       data <- self$data(plot_data)
       if (!is.data.frame(data)) {
-        stop("Data function must return a data.frame")
+        stop("Data function must return a data.frame", call. = FALSE)
       }
     } else {
       data <- self$data

Original file line number	Diff line number	Diff line change
`@@ -107,7 +107,7 @@ Layer <- ggproto("Layer", NULL,`
`107`	`107`	`} else if (is.function(self$data)) {`
`108`	`108`	`data <- self$data(plot_data)`
`109`	`109`	`if (!is.data.frame(data)) {`
`110`		`- stop("Data function must return a data.frame")`
	`110`	`+ stop("Data function must return a data.frame", call. = FALSE)`
`111`	`111`	`}`
`112`	`112`	`} else {`
`113`	`113`	`data <- self$data`