capwords: Capitalise words

In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Description

Capitalise words.

Usage

capwords(s, strict = FALSE)

Arguments

s
strict

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 (s, strict = FALSE) 
{
    cap <- function(s) paste(toupper(substring(s, 1, 1)), {
        s <- substring(s, 2)
        if (strict) 
            tolower(s)
        else s
    }, sep = "", collapse = " ")
    sapply(strsplit(s, split = " "), cap, USE.NAMES = !is.null(names(s)))
  }

n8thangreen/HESmanip documentation built on March 21, 2020, 12:20 a.m.