Subsetting from pareto distribution

I have a dataset of 20k records heavily right skewed as pareto
distribution, I'd like to pull 1k subset of it with same distribution, any
R package would do that?

Thanks.