R/Extract.colored.R

In VizOR: Graphical Visualization Tools for Complex Observational Data with Focus on Health Sciences

##' Index a colored vector
##'
##' @param x A colored factor
##' @param ... Unused
##' @return A colored factor
##' @method [ colored
##' @author David C. Norris
##' @rdname Extract.colored
##' @seealso \code{\link{colored}}
##' @export
`[.colored` <- function(x, ...){
  y <- NextMethod("[")
  attr(y,'colors') <- attr(x,'colors')
  y
}