R/tempvar.R

Defines functions tempvar

Documented in tempvar

tempvar <- function (pattern = ".var")
{
	## Similar to tempfile() but for temporary variables
	repeat {
		var <- paste(pattern, as.integer(runif(1) * 100000), sep = "")
		if (!exists(var, where = 1, inherits = TRUE)) break()
	}
	var
}

Try the svMisc package in your browser

Any scripts or data that you put into this service are public.

svMisc documentation built on May 29, 2017, 12:18 p.m.