Check whether date input is acceptable

check_date(date, all_dates)

Arguments

date

Numeric. Either a 6-digit date in the format yyyymm or a 4-digit date input yyyy .

all_dates

Numeric vector created with the get_all_dates_available() function.

Value

Check messages.

Examples

if (FALSE)  if (interactive()) {

# get all dates available
all_dates <- get_all_dates_available()

# check dates
a <- check_date(200011, all_dates)
}