Date.of.Record
2018-01-01
20180102
2018/01/03
2018-01-04
2018-01-05
20180106

Date.of.Record
20180101
20180102
20180103
20180104
20180105
20180106

library(lubridate)
date <- parse_date_time(bind$Date.of.Record, orders =c(ymd()))
date2 <- as.Date(bind$Date.of.Record, "%yyyy-%mm-%dd")