This is a simply function that can be called to format a vector of first name, middle name, surname vectors. Note that this does NOT account for any surnames that required lowercase first letters for proper formatting.

proper_name_formatting.R

proper_name_formatting <- function(x) {
  y <- strsplit(x, " ")[[1]]
  paste(toupper(substring(y, 1,1)), substring(y, 2),
        sep="", collapse=" ")
}

# below is an example for how to use the function
# usages is sapply(x, proper_name_formatting)
# hello_world <- c("hello world) 
# sapply(hello_world, proper_name_formatting) -> Hello World