R/epidates.R

In diegogarcilazo/myutilities: Collection of functions that I use frequently.

#' @title Return month from year and week
#' @description
#' [Deprecated] Use epiwk_asDate and lubridate::month
#' 
#' @param year: int year with format YYYY.
#' @param week: int week number.
#' @return month as integer.

epidates_yw2month <- function(year, week){
  
  stopifnot(is.integer(year))
  stopifnot(is.integer(week))

  first <- lubridate::ymd(paste0(year,"-01-1"))
  second <- lubridate::ymd(paste0(year,"-01-3"))
  wday_rest <- lubridate::wday(second)
  dateSum <- lubridate::`%m+%`(first, lubridate::days(week*7-3))
  dateFinal <- lubridate::`%m-%`(dateSum, lubridate::days(wday_rest))
  monthOfweek <- lubridate::month(dateFinal)
  
  return(monthOfweek)
}

#' @title Return epi - week from date. Weeks start on sunday.
#' @description
#' [Deprecated]: Use epiweek or isoweek from lubridate package
#' 
#' @param date: Date object
#' @return numeric: week number

epidates_date2week <- function(date)
{
  stopifnot(lubridate::is.Date(date))
  
  year <- lubridate::year(date - lubridate::wday(date-1) + 4)
  date1 <- as.Date(paste(year , 1, 3, sep = '-'));
  week <- (date - date1 + (lubridate::wday(date1) + 6)) / 7
  epi_week <- trunc(as.numeric((week)));
  
  return(epi_week)
}


#' Return date from excel number.
#' @param numeric: number vector
#' @return date: date

dx_asDate <- function(x) {
  stopifnot(is.numeric(x))
  as.Date(x, origin="1899-12-30")
}


#' Return excel number from date.
#' @param date: Date vector
#' @return numeric: number

dx_toNumber <- function(x) {
  stopifnot(lubridate::is.Date(x))
  as.numeric(x - dx_asDate(0))
}