Sort three variables: Difference between revisions

Content added Content deleted
Line 1,685: Line 1,685:


assignVec <- Vectorize("assign", c("x", "value"))
assignVec <- Vectorize("assign", c("x", "value"))
`%<<-%` <- function(x, value) invisible(assignVec(x, value, envir = .GlobalEnv)) # define multiple global assignment operator
`%<<-%` <- function(x, value) invisible(assignVec(x, value, envir = .GlobalEnv)) # define multiple global assignments operator
</lang>
</lang>