R/day.R

In jtr13/covidtime: Helps reduce pandemic induced temporal disintegration

#' Returns the current day and date nicely formatted
#'
#' @return character string with day and date
#'
#' @export
#'
#' @examples
#' whatdayisit()
#'
whatdayisit <- function() {
  paste0("Today is ", format(Sys.Date(), "%A, %B %d, %Y"), ".")
}


#' Title
#'
#' @param date character string in YYYY-MM-DD format
#'
#' @return
#' @export
#'
#' @examples
daysto <- function(date) {
  as.Date(date) - Sys.Date()
}