R-如何扩展列表中的每一项，以包括最早日期到今天之间的所有日期

import datetime

# 假设列表中的每一项是日期字符串
date_list = ['2022-01-01', '2022-01-03', '2022-01-05']

# 获取最早日期和今天的日期
earliest_date = min(date_list)
today = datetime.date.today().strftime('%Y-%m-%d')

# 将日期字符串转换为日期对象
earliest_date = datetime.datetime.strptime(earliest_date, '%Y-%m-%d').date()
today = datetime.datetime.strptime(today, '%Y-%m-%d').date()

# 创建一个新的列表来存储扩展后的日期
extended_date_list = []

# 遍历列表中的每一项
for date_str in date_list:
    date = datetime.datetime.strptime(date_str, '%Y-%m-%d').date()
    
    # 生成从最早日期到今天的所有日期，并添加到新列表中
    while date <= today:
        extended_date_list.append(date.strftime('%Y-%m-%d'))
        date += datetime.timedelta(days=1)

# 输出扩展后的日期列表
print(extended_date_list)