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 July 4, 2023, 2:32 a.m.