R/utils.R

Defines functions slot_getter

#' @importFrom methods slot
#' @importFrom stats setNames
slot_getter <- function(x, slots) {
  setNames(lapply(slots, function(i) methods::slot(x, i)), slots)
}
hypertidy/discrete documentation built on April 7, 2018, 11:11 p.m.