R/print_date.R

In jimbrig/jimstools: Tools for R

#' Print the current date in a pretty format
#'
#' @return string
#' @export
#'
#' @examples
#' print_date()
print_date <- function() {
  d <- date()
  month <- substr(d,5,7)
  day <- substr(d,9,10)
  year <- substr(d,21,24)
  paste(day,month,year)
}

#' Open Date Formatting \code{man} page.
#'
#' Because I always forget.
#'
#' @export
#' @importFrom utils help
date_formats <- function() {

  utils::help(strptime, package = "base")

}