Есть ли решение моей ошибки с функцией Wday из Lubridate

#r #lubridate

#r #lubridate

Вопрос:

введите описание изображения здесь

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

date_prior <- str_replace_all(today() - date_diff, pattern = "-", replacement = "")
  

Я продолжаю получать сообщение об ошибке ниже при попытке запустить приведенный выше скрипт.

Ошибка в wday(today(), label = TRUE): неиспользуемый аргумент (label = TRUE)

Комментарии:

1. Используйте lubridate::wday , вы, вероятно, используете data.table::wday . Проверьте вывод на data.table::wday(today(), label = TRUE) и lubridate::wday(today(), label = TRUE)