export.R: copy variables from current environemnt to the calling environment

export.R

export <- function(...) {
	dots <- substitute(...())
	dp <- sapply(dots, deparse)
	names <- if (is.null(names(dots))) rep("", length(dots)) else names(dots)
	names[names==""] <- dp[names==""]
	for(i in seq_along(dots)) {
		assign(names[i], eval(dots[[i]], parent.frame()), envir=parent.frame(2))
	}	
}

test.export.R

# copy variables from current environemnt to the calling environment
# optionally rename

givevals <- function() {
  x <- 10
  y <- 30
  export(x, z=y)
}

hello<-function() {
	givevals()
	print(x)	
	print(z)	
}

hello()