最近はこんな感じ。ちなみに6コマは今回便宜上数字を割り振っただけで18時以降無制限。
library(DT)
period <- 1:6
mon <- c("PC演習","PC演習","","ゼミ","PC演習","会議(不定期)")
tue <- c("PC演習","オフィスアワー","初年次科目","PC演習","","会議(不定期)")
wed <- c("","会議(不定期)","","資格関連科目","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)