R/class_prototype_methods.R

In jeanmathieupotvin/cargo: Data containers, schemas and prototypes

# class_prototype_methods.R


#' @include internals.R


#' @rdname class_prototype_methods
#' @template class_prototype_methods
#' @aliases format,Prototype-method
#' @export
format.Prototype <- function(x, ...)
{
    return(
        sprintf("class:<%s> enclos:<%s> const:<%s>",
            class(x@archetype)[[1L]],
            gsub("[<>]", "", format(x@enclosure)),
            deparse(x@constructor)
        )
    )
}