R/date_functions.R

In neemtreeparrot/tidbitr: Make analysis simpler

#' @title Converts an date string to a date
#' @description Converts a string in date format(dd-MMM-yy) into a R Date.
#'
#' @param x Date string to be converted.
#' @param century Informs if the string has the century included (dd-MM-yyyy). Default is F.
#' @return Returns the date string as a date
#' @examples
#' StringToDate("01-JAN-16")
#' StringToDate("01-JAN-2017", T)
StringToDate <- function(x, century = F)
{
  as.Date(x, ifelse(century, "%d-%b-%Y", "%d-%b-%y"))
}