date_diff <- ifelse(wday(today(), label = TRUE) == "Mon", 3, 1) date_prior <- str_replace_all(today() - date_diff, pattern = "-",