R/operator.r

Defines functions `%$$%`

`%$$%` <- function(x, y) {
  ylab <- deparse(substitute(y))
  xlab <- deparse(substitute(x))
  if(!ylab %in% names(x)) {stop("Element '", ylab, "' is not defined in list '",xlab,"'")}
  do.call(.Primitive("$"), list(x, ylab))}

Try the eatTools package in your browser

Any scripts or data that you put into this service are public.

eatTools documentation built on May 29, 2024, 6:03 a.m.