module.R

set_module = function(module) {
	assign("__module__", module, envir = parent.frame())
}

load_module = function(file) {
	
	e = new.env()
	source(file, local = e, verbose = FALSE)
	module = get("__module__", envir = e)
	rm(e)
	
	pos = which(search() == paste0("module:", module))
	if(length(pos)) {
		# detach it
		detach(pos)
	}
	
	ns = attach(NULL, name = paste0("module:", module))
	source(file, local = ns, verbose = FALSE)
	
}