如何在R中将表格数据生成的日历导出为ics/ical格式？

你已经通过toastui包成功生成了可嵌入RMarkdown/Quarto网页的交互式日历：

要将这些事件导出为通用的ICS/iCal格式，无需依赖toastui的日历对象，直接基于你整理好的事件表格数据即可实现，推荐使用icalendar包（灵活性强）或ics包（用法简洁），以下是具体方案：

方法一：使用icalendar包（推荐，适配各类事件场景） #

1. 安装并加载依赖包 #

# 首次使用时安装包
install.packages("icalendar")
install.packages(c("tibble", "lubridate", "dplyr", "purrr"))

# 加载包
library(icalendar)
library(tibble)
library(lubridate)
library(dplyr)
library(purrr)

2. 复用你已有的事件数据 #

## 基础事件表格
events <- tribble(
  ~title, ~start, ~end, ~category,
  "Guest talk",   "2023-03-07 15:00", "2023-03-07 17:00", "time",
  "Field Course", "2023-03-01 00:00", "2023-03-03 00:00", "allday",
  "Holidays",     "2023-03-27 00:00", "2023-03-31 00:00", "allday") |>
  mutate(start = as.POSIXct(start), end = as.POSIXct(end))

## 计算生成的周期性事件
regular <- tibble(
  title = "Weekly meeting",
  start = seq(as.POSIXct("2023-03-10 10:00 "), 
              as.POSIXct("2023-04-01 10:00 "), by= "1 week"),
  end   = seq(as.POSIXct("2023-03-10 12:00 "), 
              as.POSIXct("2023-04-01 12:00 "), by= "1 week "),
  category = "time"
)

# 合并所有事件
all_events <- bind_rows(events, regular)

3. 转换为ICS格式并导出 #

针对全天事件和定时事件的格式差异做适配处理：

# 创建空的ICS日历对象
cal <- ic_calendar()

# 遍历事件添加到日历
all_events |>
  pwalk(function(title, start, end, category) {
    if (category == "allday") {
      # 全天事件：ICS规范中end需设为结束日期的次日，且用日期格式标记
      start_date <- as.Date(start)
      end_date <- as.Date(end) + days(1)
      event <- ic_event(
        summary = title,
        dtstart = start_date,
        dtend = end_date,
        dtstart_tzid = "UTC", # 可根据实际时区调整，如"Asia/Shanghai"
        dtend_tzid = "UTC"
      )
    } else {
      # 定时事件：保留带时区的时间戳
      event <- ic_event(
        summary = title,
        dtstart = start,
        dtend = end,
        dtstart_tzid = Sys.timezone(),
        dtend_tzid = Sys.timezone()
      )
    }
    # 将事件添加到日历对象
    cal <<- ic_add(cal, event)
  })

# 导出ICS文件到本地
ic_write(cal, file = "my_calendar.ics")

方法二：使用ics包（简洁快速） #

如果不需要复杂的事件属性配置，ics包提供了更简化的API：

# 安装并加载包
install.packages("ics")
library(ics)

# 转换数据格式适配ics包
ics_events <- all_events |>
  mutate(
    begin = start,
    end = end,
    description = title # 可按需添加location、description等字段
  )

# 直接导出ICS文件
ics::ics(ics_events, filename = "my_calendar_simple.ics")

验证结果 #

导出的.ics文件可直接导入Outlook、Google日历、苹果日历等主流日历应用，事件的时间、分类都会被正确识别。

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