sales <- data.frame(
sale_id = 1:5,
date = c("20200101", "20200101", "20200102", "20200103", "20220101"),
quarter = c(202006, 202009, 202012, 20203, 20200101),
published = c(1999, 19991, 21, 0001, 20200101)
)
try(expect_date_yyyymmdd(date, data = sales)) # Full date of sale valid
try(expect_date_yyyymm(quarter, data = sales)) # Quarters given as YYYYMM
try(expect_date_yyyy(published, data = sales)) # Publication years valid
Run the code above in your browser using DataLab