gen_xiaoliWeeks_teachDate: 生产校历周次和教学日期

In Gabegit/gmtools: My small tools for efficiency

Description

去除了假日，加上补课日期，用于教学进度表

Usage

gen_xiaoliWeeks_teachDate(xiaoli_begin_date = "", class_begin_date,
  holidays = "", add_dates = "")

Arguments

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

Value

string week and date

Author(s)

lgm

Examples

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)

Gabegit/gmtools documentation built on May 6, 2019, 5:32 p.m.