Move check_control() to control_parsnip.R

[EmilHvitfeldt]

This function would be more at home in https://github.com/tidymodels/parsnip/blob/main/R/control_parsnip.R

parsnip/R/fit.R

Lines 318 to 330 in dd36a95

	check_control <- function(x) {
	if (!is.list(x))
	rlang::abort("control should be a named list.")
	if (!isTRUE(all.equal(sort(names(x)), c("catch", "verbosity"))))
	rlang::abort("control should be a named list with elements 'verbosity' and 'catch'.")
	# based on ?is.integer
	int_check <- function(x, tol = .Machine$double.eps^0.5) abs(x - round(x)) < tol
	if (!int_check(x$verbosity))
	rlang::abort("verbosity should be an integer.")
	if (!is.logical(x$catch))
	rlang::abort("catch should be a logical.")
	x
	}

[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.