R/ansTests.R

loadsData <- function(e) {
  t1 <- is(e$expr, "<-")
  t2 <- exists("myData", globalenv())
  t3 <- FALSE
  if(t2) {
    d <- get("myData", globalenv())
    t3 <- is(d, "data.frame")
  }
  all(t1, t2, t3)
}
ncarchedi/iMatchIt documentation built on May 23, 2019, 1:05 p.m.