R/check.data.R

In tagteam/Refresh: Run RCMD build, install, check from within R

check.data <- function(name,path="~/research/SoftWare",pattern=".R$"){
  name <- as.character(substitute(name))  
  path <- paste(dirname(path),"/",basename(path),"/",sep="")
  Rlib <- path.expand(paste(path,name,"/data",sep=""))
  print(Rlib)
  if (!file.exists(Rlib))
    stop(paste("File",Rlib," does not exist."))
  Rfiles <- list.files(path=file.path(Rlib),pattern=pattern,ignore.case=1L)
  print(Rfiles)
  lapply(Rfiles,function(name){
    message(name)
    source(file.path(Rlib,name))
  })
  invisible(NULL)
}