check_valid_date: Check date for validity

In markusdumke/lepidisthelper: What the Package Does (One Line, Title Case)

Description

Check date for validity

Usage

check_valid_date(.year = NULL, .month = NULL, .day = NULL)

Arguments

.year	Integer value.
.month	Integer value.
.day	Integer value.

Value

Returns NULL if date is ok, else a string with the error message.

Examples

# errors
check_valid_date(.year = NA)

date.future <- Sys.Date() + 1L
check_valid_date(.year = lubridate::year(date.future),
                 .month = lubridate::month(date.future),
                 .day = lubridate::day(date.future))

check_valid_date(.year = lubridate::year(date.future) + 1L)
check_valid_date(.year = lubridate::year(date.future),
                 .month = lubridate::month(date.future) + 1L)

check_valid_date(.year = 2016, .month = NA, .day = 10)
check_valid_date(.year = 2018, .month = 13)
check_valid_date(.year = 2018, .month = 12, .day = 32)

# ok
check_valid_date(.year = 2019, .month = 1, .day = 10)
check_valid_date(.year = 2019, .month = 10, .day = NA)
check_valid_date(.year = 2019, .month = NA, .day = NA)

markusdumke/lepidisthelper documentation built on Oct. 21, 2019, 3:54 a.m.