我有天数，我想将这个给定的数字转换为R中的年和月天数

# 定义给定的天数
days <- 1234

# 将天数转换为日期
date <- as.Date(days, origin = "1970-01-01")

# 提取年份和月份
year <- format(date, "%Y")
month <- format(date, "%m")

# 计算月份的天数
days_in_month <- as.numeric(format(date, "%d"))

# 打印结果
cat("给定的", days, "天转换为R中的年和月天数为：", year, "年", month, "月", days_in_month, "天")