R/class_dic.R

In jazznbass/scaledic: Functions and data frame extension for scale based operations

#' Subset a dic variable
#'
#' @param x An  object
#' @param i Elements to be selected
#' @param ... further arguments passed to the subset function.
#'
#' @return A dic variable
#' @keywords internal
#' @export
`[.dic`<- function(x, i = length(x), ...) {
  arg <- list(...)
  cl <- class(x)
  dic <- attr(x, .opt$dic)
  lab <- attr(x, "label")
  class(x) <- cl[!cl %in% "dic"]
  out <- do.call("[", c(list(x), list(i), arg))
  class(out) <- cl
  attr(out, .opt$dic) <- dic
  attr(out, "label") <- lab
  out
}