R/month_start.R

In neugelb/neugelbtools: Various small Neugelb tools

Defines functions month_start

Documented in month_start

#' month_start
#'
#' An easy function for finding the start date of a month
#' @param x A date
#' @export

month_start <- function(x) {
  y <- as.Date(format(x, "%Y-%m-01"))
  return(y)
}