plot.sf accepts duplicate in breaks

needed for r-spatial/stars#728

Author: edzer

R/plot.R

@@ -16,6 +16,14 @@ kw_dflt = function(x, key.pos) {
 		lcm(1.8 * font_scale)
 }
 
+# like cut.default, but only return integers, and allow for duplicate breaks:
+sf_cut = function(values, breaks, include.lowest = TRUE) {
+	i = findInterval(values, breaks, left.open = TRUE)
+	if (include.lowest)
+		i[values == breaks[1]] = 1
+	i[i == 0 | i == length(breaks)] = NA
+	i
+}
 
 #' plot sf object
 #'
@@ -231,8 +239,10 @@ plot.sf <- function(x, y, ..., main, pal = NULL, nbreaks = 10, breaks = "pretty"
 								rep(NA_integer_, length(values))
 							else if (!breaks_numeric && diff(range(values, na.rm = TRUE)) == 0)
 								ifelse(is.na(values), NA_integer_, 1L)
-							else
+							else if (inherits(values, c("POSIXt", "Date")))
 								cut(values, breaks, include.lowest = TRUE)
+							else
+								sf_cut(values, breaks, include.lowest = TRUE)
 						colors = if (is.function(pal))
 								pal(nbreaks)
 							else

inst/docker/gdal/Dockerfile

@@ -101,7 +101,7 @@ RUN cd proj* \
 
 # GDAL:
 ENV GDAL_VERSION 3.10.1
-ENV GDAL_VERSION_NAME 3.10.1rc1
+ENV GDAL_VERSION_NAME 3.10.1rc2
 #https://download.osgeo.org/gdal/3.9.0/gdal-3.9.0beta1.tar.gz
 #https://download.osgeo.org/gdal/3.10.0/gdal-3.10.0beta1.tar.gz
 
@@ -135,4 +135,4 @@ RUN R CMD check --no-build-vignettes --no-manual --as-cran lwgeom_*.tar.gz
 #
 RUN Rscript -e 'options(timeout=1200); install.packages("starsdata", repos="http://cran.uni-muenster.de/pebesma/")'
 #
-#RUN _R_CHECK_FORCE_SUGGESTS_=false R CMD check --no-build-vignettes --no-manual --as-cran stars_*.tar.gz 
+RUN _R_CHECK_FORCE_SUGGESTS_=false R CMD check --no-build-vignettes --no-manual --as-cran stars_*.tar.gz