在R中以markdown格式输出一个日程本

# 创建一个从 2023 年 6 月 1 日到 2023 年 6 月 30 日的日期向量
dates <- seq(as.Date("2023-06-01"), as.Date("2023-06-30"), by = "day")

# 使用 paste() 函数将日期向量中的每个日期转换为字符串格式
date_strings <- paste(dates, sep = "")

# 使用 weekdays() 函数获取每个日期对应的星期几
weekdays <- weekdays(dates)


# 自定义函数，将英文星期几名称转换为中文
translate_weekday <- function(weekday) {
  if (weekday == "Monday") {
    return("星期一")
  } else if (weekday == "Tuesday") {
    return("星期二")
  } else if (weekday == "Wednesday") {
    return("星期三")
  } else if (weekday == "Thursday") {
    return("星期四")
  } else if (weekday == "Friday") {
    return("星期五")
  } else if (weekday == "Saturday") {
    return("星期六")
  } else if (weekday == "Sunday") {
    return("星期日")
  } else {
    return(weekday)
  }
}

# 转换为中文
weekdays_cn <- sapply(weekdays, translate_weekday)

# 打印每个日期字符串和对应的星期几
for (i in 1:length(date_strings)) {
  cat(paste0("# ",date_strings[i], "-",weekdays_cn[i],"\n"))
  cat(paste0("## ","plan√","\n"))
  cat("-\n")
  cat("\n")
}

# 2023-06-28-星期三
## plan√
-

# 2023-06-29-星期四
## plan√
-

# 2023-06-30-星期五
## plan√
-