R/date_fun.R

In SwampThingPaul/AnalystHelper: Helper functions developed over the years to extract and format data

#' Date function to convert character/other as.POSIXct to date.
#'
#' @param x as.POSIXct or as.character
#' @param tz timezone (default set to Eastern Standard Time)
#' @param form format (default set to YYYY-mm-dd)
#' @keywords date
#' @export
#' @return Helper function to format date (and date-time) fields
#' @examples
#' datetime=as.character(c("2015-05-01 08:00:00","2015-10-15 12:00:00","2015-10-15 5:00:00"))
#' date_fun(datetime);# just date
#' date_fun(datetime, form="%F %X"); #include date and time

date_fun=function(x,tz="EST",form="%F"){
  as.POSIXct(strptime(x,form),tz=tz)
}

#' @export date.fun
date.fun=function(x,tz="EST",form="%F"){
  #warning("This function has been replaced with date_fun")
  as.POSIXct(strptime(x,form),tz=tz)
}