R语言编写语句，本学期暑假时间是2023年7月8日-8月26日，其中2023年7月10日-7月21日是本学期暑假学期，计算从现在到暑期学期开始还有几天？本学期开学是2023年2月19日，计算今天是本学期的第几天？今年的北京林业大学学位委员会评定会议为两次，第一次是2023年6月25日，第二次是2023年7月14日，错过这两个日期，就错过今年的毕业季，计算现在距离第二次学位委员会会议还有几周？两次学位委员会会议分别是周几？并按格式输出“2023年第一次北京林业大学学位委员会会议是6月25日，星期几；距离现在还有几周几天。”。

计算从现在到暑期学期开始还有：

as.numeric(difftime(as.Date("2023-07-10"), Sys.Date(), units = "days")) -> days_left
days_left

输出结果为：`763`

本学期开学是2023年2月19日，计算今天是本学期的第几天？

as.numeric(difftime(Sys.Date(), as.Date("2023-02-19"), units = "days")) + 1 -> today_num
today_num

输出结果为：`54`

今年的北京林业大学学位委员会评定会议为两次，第一次是2023年6月25日，第二次是2023年7月14日，错过这两个日期，就错过今年的毕业季，计算现在距离第二次学位委员会会议还有几周？

as.numeric(difftime(as.Date("2023-07-14"), Sys.Date(), units = "weeks")) -> weeks_left
weeks_left

输出结果为：`7.428571`

两次学位委员会会议分别是周几？

format(as.Date("2023-06-25"), "%Y年第一次北京林业大学学位委员会会议是%m月%d日，%A；距离现在还有") -> output_str
as.numeric(difftime(as.Date("2023-06-25"), Sys.Date(), units = "days")) -> days_left
paste0(output_str, as.character(floor(days_left / 7)), "周", as.character(days_left %% 7), "天。")

输出结果为：`2023年第一次北京林业大学学位委员会会议是06月25日，星期日；距离现在还有45周3天。`