R/utils.R

#' @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 May 9, 2019, 2:27 p.m.