R函数获取日期并输出该日期的星期几?

date_to_day_of_week_function("5/20/2020")

上面的应该输出“ Wednesday”,缩写也可以。