Description Usage Arguments Value Author(s) Examples
去除了假日,加上补课日期,用于教学进度表
1 2 | gen_xiaoliWeeks_teachDate(xiaoli_begin_date = "", class_begin_date,
holidays = "", add_dates = "")
|
xiaoli_begin_date |
xiaoli begin date of week 1 |
class_begin_date |
lesson begin date |
holidays |
holidays vector |
add_dates |
add days to have lessons |
string week and date
lgm
1 2 3 4 5 6 7 8 9 10 | hol_guoqing <- as.character(seq(as.Date("2018-10-01"),length.out = 7,by=1))
hol_xiaoyun <- as.character(seq(as.Date("2018-10-18"),length.out=3,by=1))
hol_yuandan <- as.character(seq(as.Date("2018-12-30"),length.out = 3,by=1))
hol_zhongqiu <- as.character(seq(as.Date("2018-9-22"),length.out = 3,by=1))
holidays <- c(hol_guoqing,hol_xiaoyun,hol_yuandan,hol_zhongqiu)
add_dates_Fri <- c("2018-09-30") # 补周五的课
add_dates_Thu <- c("2018-09-29") # 补周四的课
add_dates_Mon <- c("2018-12-29") #补周一课
gen_xiaoliWeeks_teachDate("2018-09-01","2018-09-03",holidays,add_dates="")
gen_xiaoliWeeks_teachDate("2018-09-01","2018-09-07",holidays,add_dates=add_dates_Fri)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.