inner_split(): better labels

[topepo]

Right now the middle data are labeled as "Assess":

library(tidymodels)

set.seed(19)
ad_v_fold <- vfold_cv(ad_data, v = 5, strata = Class)
ad_v_fold_attr <- attributes(ad_v_fold)[ c("v", "repeats", "strata", "breaks", "pool")]

v_fold_inner <- inner_split(ad_v_fold$splits[[1]], ad_v_fold_attr)
v_fold_inner
#> <Analysis/Assess/Total>
#> <211/54/265>

class(v_fold_inner)
#> [1] "vfold_split_inner" "vfold_split"       "rsplit"

^{Created on 2024-05-23 with reprex v2.0.2}

That should say the current placeholder: "potato".

This also makes me think that me think that we should have a global "inner_split" class to have better methods for this class of objects.