R/mk.R

Defines functions mk

Documented in mk

#' Source \code{RUNME.R} or \code{MAKEFILE.R}
#'
#' Ignores case.
#'
#' @export
#' @examples
#' mk()

#**********************************************************
mk = function() {

  file <- list.files(pattern = "RUNME.R|MAKEFILE.R", ignore.case = TRUE)

  if (length(file) == 1){
    source(file)
  } else {
    stop("Error: either no RUNME.R or MAKFILE.R, or multiple matches.")
  }

}
#**********************************************************
wepelham3/sack2 documentation built on Aug. 5, 2023, 5:53 a.m.