R/tailor.R

Defines functions orbital.tailor

#' @export
orbital.tailor <- function(x, ...) {
  out <- character()

  for (adj in x$adjustments) {
    new <- orbital(adj, tailor = x, ...)
    out <- c(out, new)
  }

  new_orbital_class(out)
}

Try the orbital package in your browser

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

orbital documentation built on Sept. 5, 2026, 1:07 a.m.