R/touch.betas.R

Defines functions touch.betas

touch.betas <- function(names) {
  check <- system("ls", intern = TRUE)
  if (any(check %in% names)) {
    exist <- na.omit(check[match(names, check)])
    stop(paste( length(exist), " files already exist in ", getwd(), ".  Either select a new working directory or remove these files and try again.", sep = ""))
  }
  for (ii in names) {
    cmd <- paste("echo \"", ii, "\" | gzip >> ", ii, sep = "")
    system(cmd)
  }
  return(invisible(0))
}

Try the eiPack package in your browser

Any scripts or data that you put into this service are public.

eiPack documentation built on March 7, 2023, 7:04 p.m.