d <- data.frame(x=rnorm(5), z=rnorm(5), id=c(4,10,10,5,5), v=rnorm(5))
(dd <- blocksample(d,size=20,~id))
attributes(dd)$id
## Not run: ------------------------------------
# blocksample(data.table::data.table(d),1e6,~id)
## ---------------------------------------------
Run the code above in your browser using DataLab