Создайте итеративную функцию, которая останавливается, когда она истинна в r

Question

Я хочу заставить функцию spsample иметь конкретный c номер размера выборки; функция spsample дает приблизительный размер выборки:

library (sp)
s_size <-1000

data(meuse.riv)
meuse.sr = SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)), "x")))
a<- spsample(meuse.sr, n = s_size, "regular")
length(a)
# 1006

b<- spsample(meuse.sr, n = s_size, "regular")
length(b)
# 998

c<- spsample(meuse.sr, n = s_size, "regular")
length(c)
# 1003