最近はこんな感じ。ちなみに6コマは今回も便宜上数字を割り振っただけで18時以降無制限。
library(DT)
period <- 1:6
mon <- c("","","オフィスアワー","ゼミ","心理系講義","会議(不定期)")
tue <- c("PC演習","PC演習","","学科必修科目","調査系科目","会議(不定期)")
wed <- c("","","心理系講義","","PC演習","")
thu <- c("","PC演習","卒研指導(仮)","","会議","会議(延長時)")
fri <- c("移動","心理系講義(学外)","","学科必修科目","","")
week <- cbind.data.frame(period,mon,tue,wed,thu,fri)
datatable(week,class="cell-border stripe",rownames = FALSE,
caption = "2015年後期 ぞうさんのシフト",
options = list(dom='t'))わぁい隙間だらけだぁ