Make sure arguments are passed correctly into manual_scale

thomasp85 · thomasp85 · commit 7022d3186570 · 2021-05-17T08:38:08.000+02:00
diff --git a/R/scale-manual.r b/R/scale-manual.r
@@ -123,7 +123,7 @@ scale_discrete_manual <- function(aesthetics, ..., values, breaks = waiver()) {
 }
 
 
-manual_scale <- function(aesthetic, values = NULL, breaks = waiver(), limits = NULL, ...) {
+manual_scale <- function(aesthetic, values = NULL, breaks = waiver(), ..., limits = NULL) {
   # check for missing `values` parameter, in lieu of providing
   # a default to all the different scale_*_manual() functions
   if (is_missing(values)) {

Original file line number	Diff line number	Diff line change
`@@ -123,7 +123,7 @@ scale_discrete_manual <- function(aesthetics, ..., values, breaks = waiver()) {`
`123`	`123`	`}`
`124`	`124`
`125`	`125`
`126`		`-manual_scale <- function(aesthetic, values = NULL, breaks = waiver(), limits = NULL, ...) {`
	`126`	`+manual_scale <- function(aesthetic, values = NULL, breaks = waiver(), ..., limits = NULL) {`
`127`	`127`	# check for missing `values` parameter, in lieu of providing
`128`	`128`	`# a default to all the different scale_*_manual() functions`
`129`	`129`	`if (is_missing(values)) {`