如何用R从.ics文件提取重复事件并展开为单行条目

使用calendar库可以快速导入.ics日历文件，但导入后重复事件不会以常规的单行条目形式呈现，而是被存储在rrule列中。以下是将重复事件展开为每行对应一条事件数据的实现方案：

实现步骤 #

1. 加载依赖包 #

除了calendar，还需要用到时间处理、迭代及规则解析的相关包：

install.packages(c("calendar", "lubridate", "purrr", "dplyr", "rrule"))
library(calendar)
library(lubridate)
library(purrr)
library(dplyr)
library(rrule)

2. 读取.ics文件 #

使用原代码读取目标日历文件：

df_cal <- calendar::ic_read("your specific path/gmail_calendar_export.ics")

3. 编写重复事件展开函数 #

该函数会自动识别重复事件，解析规则生成所有实例的时间，并保留原事件的其他属性：

expand_recurring_events <- function(event_row) {
  # 非重复事件直接返回原行
  if (is.na(event_row$rrule)) {
    return(tibble::as_tibble(event_row))
  }
  
  # 解析重复规则，生成所有事件的开始时间
  recurrence_starts <- rrule_parse(event_row$rrule) %>% rrule_get_dtstart()
  
  # 基于原事件时长计算每个实例的结束时间
  event_duration <- event_row$dtend - event_row$dtstart
  recurrence_ends <- recurrence_starts + event_duration
  
  # 构造展开后的事件数据
  tibble::tibble(
    dtstart = recurrence_starts,
    dtend = recurrence_ends,
    summary = event_row$summary,
    description = event_row$description,
    location = event_row$location,
    # 保留原事件除时间、重复规则外的其他字段
    !!! event_row %>% select(-dtstart, -dtend, -rrule)
  )
}

4. 批量处理所有事件并合并结果 #

对导入的日历数据逐行应用展开函数，最终得到包含所有事件（含展开后的重复事件）的扁平数据框：

expanded_cal <- df_cal %>% purrr::pmap_dfr(expand_recurring_events)

# 查看展开后的结果
head(expanded_cal)

补充说明 #

• 如果你的.ics文件中包含重复事件的例外日期（exdate列），可以在函数中添加逻辑过滤掉这些例外时间；
• 可根据实际需求调整函数中保留的字段，匹配你的数据处理场景。

内容的提问来源于stack exchange，提问作者Samuel Reuther