Use stored value of missing(nbreaks)

MichaelChirico · web-flow · commit 97700df29fbe · 2023-06-21T19:53:08.000-07:00
diff --git a/R/plot.R b/R/plot.R
@@ -126,7 +126,7 @@ plot.sf <- function(x, y, ..., main, pal = NULL, nbreaks = 10, breaks = "pretty"
 				nbreaks = length(breaks) - 1
 			}
 		}
-		if (missing(nbreaks) && is.numeric(breaks))
+		if (nbreaks.missing && is.numeric(breaks))
 			nbreaks = length(breaks) - 1
 
 		# loop over each map to plot:

Original file line number	Diff line number	Diff line change
`@@ -126,7 +126,7 @@ plot.sf <- function(x, y, ..., main, pal = NULL, nbreaks = 10, breaks = "pretty"`
`126`	`126`	`nbreaks = length(breaks) - 1`
`127`	`127`	`}`
`128`	`128`	`}`
`129`		`- if (missing(nbreaks) && is.numeric(breaks))`
	`129`	`+ if (nbreaks.missing && is.numeric(breaks))`
`130`	`130`	`nbreaks = length(breaks) - 1`
`131`	`131`
`132`	`132`	`# loop over each map to plot:`