diff --git a/R/fetchSDA_spatial.R b/R/fetchSDA_spatial.R index f4a92861..7ee94a6f 100644 --- a/R/fetchSDA_spatial.R +++ b/R/fetchSDA_spatial.R @@ -67,6 +67,9 @@ fetchSDA_spatial <- function(x, by.col = "mukey", method='feature', point='mupolygongeo.STPointOnSurface().STAsText()' ) + # feedback: + message(sprintf("working with %s chunks...", length(unique(mukey.chunk)))) + for(i in 1:length(mukey.chunk)) { idx <- which(mukey.chunk == mukey.chunk[i])