R/step_rename.R

Defines functions orbital.step_rename

#' @export
orbital.step_rename <- function(x, all_vars, ...) {
	inputs <- lapply(x$inputs, rlang::as_label)

	inputs <- inputs[names(inputs) %in% all_vars]

	out <- unlist(inputs)
	out
}

Try the orbital package in your browser

Any scripts or data that you put into this service are public.

orbital documentation built on April 3, 2025, 8:47 p.m.