R/toproper.R

In Waiguru254/surveycto: Manipulation of Data Collected through XLSFORM-compliant Platforms

### Converting word(s) to proper.

#' Converts String text into Proper Format
#'
#' @param x String or variable to be converted to proper
#'
#' @return
#' @export
#'
#' @examples
#' toproper(data$row)
toproper=function(x) {
  gsub("(?<=\\b)([a-z])", "\\U\\1", tolower(x), perl=TRUE)
}