tests/test_alt.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

chk_0 <- TRUE

add_to_vector <- function(vect_name, val) {
	vect <- get(vect_name, envir = globalenv())
	vect <- c(vect, val)
	assign(vect_name, vect, envir = globalenv())
	return(TRUE)
}

display_vector <- function(vect_name) {
	vect <- get(vect_name, envir = globalenv())
	display_msg(vect)
	return(TRUE)
}

no_return_method <- function(i) {
	
}