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