set.seed(28432)
fold_rs <- vfold_cv(mtcars)
fold_rs$splits[[1]]$out_id
complement(fold_rs$splits[[1]])
populate(fold_rs$splits[[1]])$out_id
fold_rs_all <- populate(fold_rs)
fold_rs_all$splits[[1]]$out_id
Run the code above in your browser using DataLab