R/swap.R

In seqinr: Biological Sequences Retrieval and Analysis

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