Subsetting a tbl_sample with [ preserves the tbl_sample class
and its sampling metadata when the essential column (.weight)
remains.
# S3 method for class 'tbl_sample'
x[i, j, ..., drop = FALSE]A tbl_sample if essential columns remain, otherwise a data.frame