Replace nested ifelse while working with dates in R

Question

Here is my data

sampleData <- structure(list(Category = c("A", "B", "C", "D", "E", "F", "G