transpordiTsoonid/R/dfNamesToLower.R

#' Changes DataFrame colnames to lower and remove punctuation.
#' @details Dataframe veergude nimede muutmine väikesteks tähtedeks ja "." asendamine alakriipsuga.
#' Kasuta funktsiooni kui soovid DataFrame objekti salvestada Postgres andmebaasi koos veergude
#' nimedega.
#' @param df DataFrame.
#' @return array with the changed column names.
#' @seealso \code{\link{dfNamesToLower}}, \code{\link{df2PostgresReplaceFieldsArray}}
#' @examples \dontrun{
#' L3 <- LETTERS[1:3]
#' fac <- sample(L3, 10, replace = TRUE)
#' (d <- data.frame(x = 1, y = 1:10, FAC.XXX = fac))
#' dfNamesToLower(df = d)
#' colnames(d) <- dfNamesToLower(df = d)
#' d
#'
#' }
#'
#' @export
#'

dfNamesToLower <- function(df) {
  res <- sapply(1:ncol(df), function(x) {
    gsub("[.]", "_", tolower(names(df)[x]))
  })
  message(paste0("DataFrame'i veeru nimed on muudetud importimiseks postgresql andmebaasi.
Uued nimed:"), paste(res, collapse = ", "))
  res
}