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 May 29, 2024, 6:36 a.m.