x <- as.Date("2009-09-02")
wday(x) #4
wday(ymd(080101))
# 3
wday(ymd(080101), label = TRUE)
# "Tuesday"
wday(ymd(080101), label = TRUE, abbr = TRUE)
# "Tues"
wday(ymd(080101) + days(-2:4), label = TRUE, abbr = TRUE)
# "Sun" "Mon" "Tues" "Wed" "Thurs" "Fri" "Sat"}
Run the code above in your browser using DataCamp Workspace