R/capitalize.R

In sabalicodev/sabali: Twitter Text & Sentiment Analysis for R

#' Get Operating System Info
#'
#' This function allows you to get your operating system info.
#' @param activate Do you love OS? Defaults to TRUE.
#' @keywords IP Address
#' @export
#' @examples
#' capitalize("word")
 
capitalize <- function(s){

name <- s

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

capitalize_str <- function(charcter_string){sapply(charcter_string, CapStr)}

return(capitalize_str(name))

}