无法从tibble列表中获取所有日期的列表

# 加载所需的库
library(tidyverse)

# 创建一个示例的tibble列表
my_list <- list(
  tibble(date = as.Date("2022-01-01")),
  tibble(date = as.Date("2022-01-02")),
  tibble(date = as.Date("2022-01-03"))
)

# 将列表转换为tibble数据框
my_tibble <- as_tibble(my_list)

# 展开列表中的元素为单独的行
my_tibble <- unnest(my_tibble)

# 筛选出日期类型的列
my_dates <- filter(my_tibble, is.Date(date))

# 去除重复的日期
my_dates <- distinct(my_dates)

# 打印结果
print(my_dates)