R/last_tuesday.R

In thebioengineer/tidytuesdayR: Access the Weekly 'TidyTuesday' Project Dataset

#' Find the most recent tuesday
#'
#' Utility function to assist users in identifying the most recent 'TidyTuesday' date
#'
#' @param date todays date as a date object or character string in
#' YYYY-MM-DD format.
#'
#' @importFrom lubridate wday today
#' @examples
#'
#' last_tuesday() # get last tuesday from todays date
#' last_tuesday("2020-01-01") # get last tuesday from specified date
#'
#' @export

last_tuesday <- function(date = today(tzone = "America/New_York")) {

  stopifnot(inherits(date,"Date") | valid_date(date))

  date <- as.Date(tt_date_format(date))

  diff_tuesday <- 3 - lubridate::wday(date)

  if (diff_tuesday < 0) {
    diff_tuesday <- diff_tuesday + 7
  }

  tuesday <- date + diff_tuesday

  # data is usually released on a monday
  if(tuesday - date > 1){
    tuesday = tuesday - 7
  }

  return(tuesday)
}

tt_date <- function(x,week){
  tt_check_date(year, week)
}