R rsample rset_reconstruct 使用新的 rset 子類擴展 rsample

rset_reconstruct(x, to)

to <- bootstraps(mtcars, times = 25)

# Imitate a vctrs/dplyr operation,
# where the class might be lost along the way
x <- tibble::as_tibble(to)

# Say we added a new column to `x`. Here we mock a `mutate()`.
x$foo <- "bar"

# This is still reconstructable to `to`
rset_reconstruct(x, to)
#> # Bootstrap sampling 
#> # A tibble: 25 × 3
#>    splits          id          foo  
#>    <list>          <chr>       <chr>
#>  1 <split [32/12]> Bootstrap01 bar  
#>  2 <split [32/9]>  Bootstrap02 bar  
#>  3 <split [32/13]> Bootstrap03 bar  
#>  4 <split [32/12]> Bootstrap04 bar  
#>  5 <split [32/12]> Bootstrap05 bar  
#>  6 <split [32/13]> Bootstrap06 bar  
#>  7 <split [32/11]> Bootstrap07 bar  
#>  8 <split [32/12]> Bootstrap08 bar  
#>  9 <split [32/14]> Bootstrap09 bar  
#> 10 <split [32/12]> Bootstrap10 bar  
#> # ℹ 15 more rows

# Say we lose the first row
x <- x[-1, ]

# This is no longer reconstructable to `to`, as `x` is no longer an rset
# bootstraps object with 25 bootstraps if one is lost!
rset_reconstruct(x, to)
#> # A tibble: 24 × 3
#>    splits          id          foo  
#>    <list>          <chr>       <chr>
#>  1 <split [32/9]>  Bootstrap02 bar  
#>  2 <split [32/13]> Bootstrap03 bar  
#>  3 <split [32/12]> Bootstrap04 bar  
#>  4 <split [32/12]> Bootstrap05 bar  
#>  5 <split [32/13]> Bootstrap06 bar  
#>  6 <split [32/11]> Bootstrap07 bar  
#>  7 <split [32/12]> Bootstrap08 bar  
#>  8 <split [32/14]> Bootstrap09 bar  
#>  9 <split [32/12]> Bootstrap10 bar  
#> 10 <split [32/10]> Bootstrap11 bar  
#> # ℹ 14 more rows