I have a large dataset with characters that look like dates be they\'re in two different formats. For example:
input <- c("2019-01-22", "201