inst/unitTests/getobj_test.R

test_getobj <- function() {
  x <- 1:10
  file <- tempfile()
  save(x, file=file)
  y <- getobj(file)
  checkIdentical(x,y)
  unlink(file)
}

Try the GWASTools package in your browser

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

GWASTools documentation built on Nov. 8, 2020, 7:49 p.m.