R/writeCleanNAMED.R

In blackbox: Black Box Optimization and Exploration of Parameter Space

writeCleanNAMED <-
function (possiblynamed, file, ...)
{
    if (is.matrix(possiblynamed) | is.data.frame(possiblynamed)) {
        noms <- colnames(possiblynamed)
    }
    else noms <- names(possiblynamed)
    fieldwidth <- (max(nchar(noms), nchar(possiblynamed))) +
        1
    if (!is.null(noms)) {
        fillstrings <- sapply(nchar(noms), function(n) {
            paste(rep(" ", fieldwidth - n), sep = "", collapse = "")
        })
        write(paste(fillstrings, noms, collapse = ""), file = file)
    }
    if (is.data.frame(possiblynamed) || is.matrix(possiblynamed)) {
        apply(possiblynamed, 1, function(l) {
            fillstrings <- sapply(nchar(l), function(n) {
                paste(rep(" ", fieldwidth - n), sep = "", collapse = "")
            })
            write(paste(fillstrings, noms, collapse = ""), file = file)
        })
    }
    else if (is.numeric(possiblynamed)) {
        fillstrings <- sapply(nchar(possiblynamed), function(n) {
            paste(rep(" ", fieldwidth - n), sep = "", collapse = "")
        })
        write(paste(fillstrings, possiblynamed, collapse = ""),
            file = file)
    }
}