collection_date <- c(
NA, "31/12/2029", "2013-06-13T00:00:00Z", "2013-06-20",
"", "2013", 1650, "0001-01-00"
)
x <- data.frame(collection_date)
bdc_year_outOfRange(
data = x,
eventDate = "collection_date",
year_threshold = 1900)
Run the code above in your browser using DataLab