1 2 3 4 5 6 7
source("unittest.R") dyn.load(paste("r_sexp", .Platform$dynlib.ext, sep="")) source("r_sexp.R") cacheMetaData(1) obj <- return_sexp(1); unittest(obj, 1)