R/Main_functions.R

In Alexandershemetev/tpckg:

#' Make a Date from year, month, day
#'
#' This function makes a Date from the supplied year, month, and day paramters.
#' NA values for month and day are replaced by 1.
#'
#' @param year Numeric year
#' @param month Numeric month
#' @param day Numeric day
#' @return A Date object
#'
#' @examples \dontrun{
#' ProjectRGCapstone::to_date(2017, 4, 17)  # => 2017-04-17
#' ProjectRGCapstone::to_date(2017, 4, NA)  # => 2017-04-01
#' ProjectRGCapstone::to_date(2017, NA, NA) # => 2017-01-01
#' }
#' @note This function is for internal use only.
to_date <- function(year, month, day) {
  if (is.na(month)) {
    month <- 1
  }

  if (is.na(day)) {
    day <- 1
  }

  if (year >= 0) {
    base::as.Date(paste(year, month, day, sep = "-"))
  } else {
    NA
  }
}