layer.r: added missing error message spacer

Sven E. Templer · Sven E. Templer · commit ef8f179b9110 · 2014-12-09T21:40:29.000+01:00
diff --git a/R/layer.r b/R/layer.r
@@ -159,7 +159,7 @@ Layer <- proto(expr = {
     wrong <- lengths != 1 & lengths != n
     if (any(wrong)) {
       stop("Aesthetics must either be length one, or the same length as the data",
-        "\nProblems:", paste(aesthetics[wrong], collapse = ", "), call. = FALSE)
+        "\nProblems: ", paste(aesthetics[wrong], collapse = ", "), call. = FALSE)
     }
 
     if (empty(data) && n > 0) {

Original file line number	Diff line number	Diff line change
`@@ -159,7 +159,7 @@ Layer <- proto(expr = {`
`159`	`159`	`wrong <- lengths != 1 & lengths != n`
`160`	`160`	`if (any(wrong)) {`
`161`	`161`	`stop("Aesthetics must either be length one, or the same length as the data",`
`162`		`- "\nProblems:", paste(aesthetics[wrong], collapse = ", "), call. = FALSE)`
	`162`	`+ "\nProblems: ", paste(aesthetics[wrong], collapse = ", "), call. = FALSE)`
`163`	`163`	`}`
`164`	`164`
`165`	`165`	`if (empty(data) && n > 0) {`