R/batchWinsteps.r

In DJAnderson07/r2Winsteps: A package for interfacing between R and the Rasch modeling software Winsteps

#' Batch Process Winsteps Files
#'
#' This function searches the working directory for Winsteps control files and
#'   creates a batch processing file based on all the control files in the
#'   directory. Alternatively, a vector of control file names can be supplied,
#'   from which teh batch processing file is constructed.
#' @param batchName The name of the batch file to be saved.
#' @param files Optional vector of the names of all Winsteps control files.
#'   Note that only the name is requred, not the extension (.txt is assumed). If
#'   argument is not supplied, the function will search the working directory
#'   files with a common string pattern.
#' @param dir Directory where multiple control files are saved. Defaults to
#'   current directory.
#' @param outFileNames Character vector of output file names from Winsteps
#'   analyses. Defaults to NULL, and the function creates names based on the
#'   names of the control files.
#' @param pattern Common character pattern represented in control files in the
#'   directory. Defaults to "Cntrl", which is what is automatically generated
#'   when r2Winsteps is called. Note that if \code{files} argument is supplied,
#'   \code{pattern} is ignored.

batchWinsteps <- function(batchName, files = NULL, dir = getwd(),
    outFileNames = NULL, pattern = "Cntrl") {

    oldD <- getwd()
    setwd(dir)
    dir <- gsub("/", "\\\\", dir)

#-------------------------------- Define files --------------------------------
    if (!is.null(files)) {
        files <- file.path(dir, paste0(files, ".txt"), fsep = "\\")
    }

    if (is.null(files)) {
        files <- list.files()
        files <- files[grep(as.character(pattern), files)]
        files <- file.path(dir, files, fsep = "\\")
    }
#------------------------- Define Outifle Names ---------------------------
    if(!is.null(outFileNames)) {
        outFileNames <- file.path(dir, paste0(outFileNames, ".txt"), fsep = "\\")
    }

   if (is.null(outFileNames) & pattern == "Cntrl") {
        outFileNames <- paste0(substr(files, 1, nchar(files) - 9),
                              "Out",
                              ".txt")
        outFileNames <- file.path(dir, outFileNames, fsep = "\\")
    }

    if (is.null(outFileNames) & pattern != "Cntrl") {
        outFileNames <- paste0(substr(files, 1, nchar(files) - 4),
                              "Out",
                              ".txt")
        outFileNames <- file.path(dir, outFileNames, fsep = "\\")
    }
#------------------------------- Write .bat File ------------------------------
    first <- rep("START /w C:\\winsteps\\WINSTEPS BATCH=YES ", length(files))

    sink(paste(batchName, "bat", sep = "."))
    cat(paste(first, files, outFileNames, sep = " "), "EXIT", sep = "\n")
    sink()
#------------------------------------------------------------------------------
    on.exit(setwd(oldD), add = TRUE)
}