R如何获得一个月的第六个工作日

import datetime

def get_sixth_workday(year, month):
    count = 0
    date = datetime.date(year, month, 1)
    
    while count < 6:
        if date.weekday() < 5:  # 判断是否为周一至周五
            count += 1
        date += datetime.timedelta(days=1)
    
    return date

# 示例用法
year = 2022
month = 1
sixth_workday = get_sixth_workday(year, month)
print(sixth_workday)