R/lc_df.R

In zhaoy/zhaoy: Miscellaneous Functions

#' @title Convert upper-case English characters to lower-case
#'
#' @description
#' Convert upper-case English characters to lower-case.
#'
#' @usage
#' lc_df(x)
#'
#' @param x A data-frame.
#'
#' @return
#' A tibble.
#'
#' @importFrom purrr map_dfc
#'
#' @export
#'
#' @examples
#' ToothGrowth$supp <- as.character(x = ToothGrowth$supp)
#' zhaoy::lc_df(x = ToothGrowth)

lc_df <- function(x) {

  options(tibble.print_max = Inf,
          tibble.width = Inf)

  names(x = x) <- tolower(x = names(x = x))

  purrr::map_dfc(.x = x,
                 .f = internal_lc_df)

}