R/swap.R

Defines functions swap

Documented in swap

swap <- function(x, y){
  x.sub <- substitute(x)
  y.sub <- substitute(y)
  x.val <- x
  e <- parent.frame()
  do.call("<-", list(x.sub, y.sub), envir = e)
  do.call("<-", list(y.sub, x.val), envir = e)
}

Try the seqinr package in your browser

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

seqinr documentation built on Aug. 1, 2017, 5:01 p.m.