inner_split(): S3 method to retrive splitting arguments

[topepo]

It's a bit tedious to do this:

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)

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

IIRC you have an internal function to do this?

[simonpcouch]

rsample/R/misc.R

Lines 298 to 312 in 7d35a8e

	#' Get the split arguments from an rset
	#' @param rset An `rset` object.
	#' @return A list of arguments used to create the rset.
	#' @keywords internal
	#' @export
	.get_split_args <- function(rset) {
	all_attributes <- attributes(rset)
	args <- names(formals(all_attributes$class[[1]]))
	split_args <- all_attributes[args]
	split_args <- split_args[!is.na(names(split_args))]
	if (identical(split_args$strata, FALSE)) {
	split_args$strata <- NULL
	}
	split_args
	}

[hfrick]

Closing this as the helper exist :)

@topepo it's currently exported but that might change. If you find usage for it that suggests it should stay exported please comment on #495 🙌

[github-actions]

This issue has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.