Fix partial argument match in guide_train.colorbar. Closes #2779 (#2780)

wch · web-flow · commit 10216469480c · 2018-07-26T18:12:17.000-04:00
diff --git a/R/guide-colorbar.r b/R/guide-colorbar.r
@@ -218,7 +218,7 @@ guide_train.colorbar <- function(guide, scale, aesthetic = NULL) {
 
   # bar specification (number of divs etc)
   .limits <- scale$get_limits()
-  .bar <- seq(.limits[1], .limits[2], length = guide$nbin)
+  .bar <- seq(.limits[1], .limits[2], length.out = guide$nbin)
   if (length(.bar) == 0) {
     .bar = unique(.limits)
   }

Original file line number	Diff line number	Diff line change
`@@ -218,7 +218,7 @@ guide_train.colorbar <- function(guide, scale, aesthetic = NULL) {`
`218`	`218`
`219`	`219`	`# bar specification (number of divs etc)`
`220`	`220`	`.limits <- scale$get_limits()`
`221`		`- .bar <- seq(.limits[1], .limits[2], length = guide$nbin)`
	`221`	`+ .bar <- seq(.limits[1], .limits[2], length.out = guide$nbin)`
`222`	`222`	`if (length(.bar) == 0) {`
`223`	`223`	`.bar = unique(.limits)`
`224`	`224`	`}`