address #44

r-spatial · Aug 24, 2023 · 3652101 · 3652101
1 parent 4bf693f
commit 3652101
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/classInt.R b/R/classInt.R
@@ -136,7 +136,9 @@ classIntervals <- function(var, n, style="quantile", rtimes=3, ..., intervalClos
       if (nobs > largeN) {
         warning("N is large, and some styles will run very slowly; sampling imposed")
         sampling <- TRUE
-        nsamp <- ifelse(samp_prop*nobs < largeN, as.integer(ceiling(samp_prop*nobs)), as.integer(largeN))
+# issue 44
+        nsamp <- as.integer(ceiling(samp_prop*nobs))
+        if (nsamp > largeN) nsamp <- as.integer(largeN)
       }
     }
     if (style =="fixed") {