date <- c(20210101, 20211301, 20210132, 202101, 2021)
chk_date_yyyymmdd(date)
date <- c(202101, 202112, 202113, 2021)
chk_date_yyyymm(date)
date <- c("0001", "1688", "1775", "1789", "1791", "1848")
chk_date_yyyy(date)
Run the code above in your browser using DataLab