Fix #4140 clear up vestigal error message

thomasp85 · thomasp85 · commit 1a72f581ce65 · 2021-04-28T13:32:37.000+02:00
diff --git a/R/scale-expansion.r b/R/scale-expansion.r
@@ -66,7 +66,7 @@ expand_scale <- function(mult = 0, add = 0) {
 #'
 expand_range4 <- function(limits, expand) {
   if (!(is.numeric(expand) && length(expand) %in% c(2,4))) {
-    abort("`expand` must be a numeric vector with 1 or 2 elements")
+    abort("`expand` must be a numeric vector with 2 or 4 elements")
   }
 
   if (all(!is.finite(limits))) {

Original file line number	Diff line number	Diff line change
`@@ -66,7 +66,7 @@ expand_scale <- function(mult = 0, add = 0) {`
`66`	`66`	`#'`
`67`	`67`	`expand_range4 <- function(limits, expand) {`
`68`	`68`	`if (!(is.numeric(expand) && length(expand) %in% c(2,4))) {`
`69`		- abort("`expand` must be a numeric vector with 1 or 2 elements")
	`69`	+ abort("`expand` must be a numeric vector with 2 or 4 elements")
`70`	`70`	`}`
`71`	`71`
`72`	`72`	`if (all(!is.finite(limits))) {`