R/fix_date_char.R

In nathansam/datefixR: Standardize Dates in Different Formats or with Missing Data

#' @title Convert non-standardized dates to \R{}'s \code{Date} class
#' @description
#' Converts a character vector (or single character object) from inconsistently
#' formatted dates to \R{}'s \code{Date} class. Supports numerous separators
#' including /, -, or space. Supports numeric, abbreviation or long-hand
#' month notation. Where day of the month has not been supplied, the first day
#' of the month is imputed by default. Either DMY or YMD is assumed by default.
#' However, the US system of MDY is supported via the \code{format} argument.
#' @param dates Character vector to be converted to \R{}'s date class.
#' @inheritParams fix_date_df
#' @return A vector of elements belonging to \R{}'s built in \code{Date} class
#'   with the following format \code{yyyy-mm-dd}.
#' @seealso \code{\link{fix_date_df}} which is similar to \code{fix_date_char()}
#' except is applicable to columns of a data frame.
#' @examples
#' bad.date <- "02 03 2021"
#' fixed.date <- fix_date_char(bad.date)
#' fixed.date
#' @export
fix_date_char <- function(dates,
                          day.impute = 1,
                          month.impute = 7,
                          format = "dmy",
                          excel = FALSE,
                          roman.numeral = FALSE) {
  checkday(day.impute)
  .checkmonth(month.impute)
  .checkformat(format)
  as.Date(
    sapply(
      dates,
      .fix_date_char,
      day.impute = day.impute,
      month.impute = month.impute,
      format = format,
      excel = excel,
      roman.numeral = roman.numeral,
      USE.NAMES = FALSE
    ),
    origin = "1970-01-01"
  )
}