R/ansTests.R

In ncarchedi/iMatchIt: An interactive wrapper for the MatchIt R package

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)
}