R/destructure.R

In dotty: The Unpacking Dot Operator

Defines functions destructure.numeric_version destructure.default destructure

destructure <- function(object) {
  UseMethod("destructure")
}

#' @export
destructure.default <- function(object) {
  object
}

#' @export
destructure.numeric_version <- function(object) {
  unclass(object)[[1L]]
}

Try the dotty package in your browser