nprcgenekeepr (version 1.0.8)

chooseDate: Choose date based on earlier flag.

Description

Part of Pedigree Curation

Usage

chooseDate(d1, d2, earlier = TRUE)

Value

Date vector of chosen dates or NA where neither is provided

Arguments

d1

Date vector with the first of two dates to compare.

d2

Date vector with the second of two dates to compare.

earlier

logical variable with TRUE if the earlier of the two dates is to be returned, otherwise the later is returned. Default is TRUE.

Details

Given two dates, one is selected to be returned based on whether it occurred earlier or later than the other. NAs are ignored if possible.

Examples

library(nprcgenekeepr)
someDates <- lubridate::mdy(paste0(
  sample(1:12, 2, replace = TRUE), "-",
  sample(1:28, 2, replace = TRUE), "-",
  sample(seq(0, 15, by = 3), 2,
    replace = TRUE
  ) + 2000
))
someDates
chooseDate(someDates[1], someDates[2], earlier = TRUE)
chooseDate(someDates[1], someDates[2], earlier = FALSE)