powered by
Identity(...)
list.copy <- function(list) Reduce(Identity, list) list <- c(1, 2, 3) stopifnot(list.copy(list) == list)
Run the code above in your browser using DataLab