最近はこんな感じ。ちなみに6コマは今回も便宜上数字を割り振っただけで18時以降無制限。
library(DT)
period <- 1:6
mon <- c("PC演習","PC演習","オフィスアワー","ゼミ","卒研指導","")
tue <- c("","情報系講義","初年次科目","PC演習","オフィスアワー(図書館)","")
wed <- c("移動","心理系講義(学外)","","PC演習","PC演習","")
thu <- c("","","","","会議","会議(延長時)")
fri <- c("PC演習","PC演習","","","","")
week <- cbind.data.frame(period,mon,tue,wed,thu,fri)
datatable(week,class="cell-border stripe",rownames = FALSE,
caption = "2016年前期 ぞうさんのシフト",
options = list(dom='t'))なんとも偏った感じですね(しろめ