It's a bit tedious to do this: <div class="highlight highlight-source-r notranslat

Closing this as the helper exist :) <a class="user-mention notransla

inner_split(): S3 method to retrive splitting arguments about rsample HOT 3 CLOSED

topepo commented on September 14, 2024

inner_split(): S3 method to retrive splitting arguments

from rsample.

Comments (3)

simonpcouch commented on September 14, 2024 1

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 

 }

from rsample.

hfrick commented on September 14, 2024

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 🙌

from rsample.

inner_split(): S3 method to retrive splitting arguments about rsample HOT 3 CLOSED

Comments (3)

Related Issues (20)

Recommend Projects

React

Vue.js

Typescript

TensorFlow

Django

Laravel

D3

Recommend Topics

javascript

web

server

Machine learning

Visualization

Game

Recommend Org

Facebook

Microsoft

Google

Alibaba

D3

Tencent

	#' 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
	}