cap1: Capitalize first character of each word

In gmonette/spida15: Collection of miscellaneous functions for mixed models etc. prepared for SPIDA 2009+ (development version)

Usage

cap1(x, tofactor = is.factor(x), stop = c(" The", " Of", " By", " To", " And"), blanks = c(" ", "(", "\"", "/", "+"))

Arguments

x
tofactor
stop
blanks

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, tofactor = is.factor(x), stop = c(" The", " Of", 
    " By", " To", " And"), blanks = c(" ", "(", "\"", "/", "+")) 
{
    under2blank <- T
    if (is.factor(x)) {
        ret <- cap1(levels(x))
        if (length(unique(ret)) != length(ret)) 
            warning("factor levels have been shortened")
        levels(x) <- ret
        return(x)
    }
    ret <- as.character(x)
    for (ii in 1:length(ret)) {
        z <- ret[[ii]]
        if (under2blank) 
            z <- gsub("_", " ", z)
        n <- nchar(z)
        z <- substring(z, 1:n, 1:n)
        zu <- toupper(z)
        zl <- tolower(z)
        zb <- c(" ", zu[-n])
        z <- paste(ifelse(zb %in% blanks, zu, zl), collapse = "")
        for (ss in stop) z <- gsub(ss, tolower(ss), z)
        ret[[ii]] <- z
    }
    ret
  }

gmonette/spida15 documentation built on May 17, 2019, 7:26 a.m.