Таким образом, день, когда вы запускаете код, кажется тем, что вы хотите, а не датой в вашем наборе данных. Просто получите текущий день, день недели, затем вы можете выполнить оператор if для запуска соответствующего кода.
day <- weekdays(Sys.Date())
if (day == 'Monday') { ... }
else { ... }
и т.д.