older edits

Author: rsbivand

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: classInt
 Version: 0.4-10
-Date: 2023-08-15
+Date: 2023-08-24
 Title: Choose Univariate Class Intervals
 Authors@R: c(
   person("Roger", "Bivand", role=c("aut", "cre"), email="[email protected]", comment=c(ORCID="0000-0003-2392-6140")),

R/classInt.R

@@ -132,11 +132,13 @@ classIntervals <- function(var, n, style="quantile", rtimes=3, ..., intervalClos
 # introduced related to https://github.com/r-spatial/classInt/issues/7
     sampling <- FALSE
     if (warnLargeN &&
-      (style %in% c("kmeans", "hclust", "bclust", "fisher", "jenks"))) {
+      (style %in% c("fisher", "jenks"))) {
       if (nobs > largeN) {
         warning("N is large, and some styles will run very slowly; sampling imposed")
         sampling <- TRUE
-        nsamp <- ifelse(samp_prop*nobs > 3000, as.integer(ceiling(samp_prop*nobs)), 3000L)
+# issue 44
+        nsamp <- as.integer(ceiling(samp_prop*nobs))
+        if (nsamp > largeN) nsamp <- as.integer(largeN)
       }
     }
     if (style =="fixed") {