Merge pull request #2184 from MichaelChirico/patch-4

edzer · web-flow · commit 2f9bfae46ba3 · 2023-06-22T12:34:54.000+02:00
Use stored value of missing(nbreaks)
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:`