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)
}
smgogarten/GWASTools documentation built on May 18, 2024, 1:19 a.m.