R/fix_names.R

In USAID-OHA-SI/fastR: Import COP19 FAST Tool Budgets

#' Fix column names
#'
#' @param x vector of column names


fix_names <- function(x){
  x %>%
    stringr::str_replace("%", "Percent") %>%
    stringr::str_replace(" (Expenditure|Percent|Budget)", "_\\1") %>%
    stringr::str_replace_all("\\(", "_") %>%
    #stringr::str_remove_all("[:punct:]|[:space:]") %>%
    stringr::str_remove_all(" |-|\\?|\\)|\\*|[:space:]") %>%
    stringr::str_to_lower()
}