R/uncap_it.R

In aedobbyn/dobtools: dobtools

#' Uncap It
#'
#' Uncapitalize a vector or dataframe (usually the column names) and replace spaces
#' with underscores using one of the apply or purrr functions.
#' @param e A vector or dataframe.
#' @param ... Other arguments
#' @keywords uncapitalize
#' @export
#' @examples
#'
#' string_to_tidy <- "A String that needs Tidying"
#' uncap_it(string_to_tidy)

uncap_it <- function(e, ...) {
  e <- e %>%
    stringr::str_to_lower() %>%
    stringr::str_replace_all(., " ", "_")

  return(e)
}