我修改了一下對應的代碼換上我的信息:
---title: "An introduction to phonetics"author: "Juqiang Chen"date: "Fall 2021"output: pdf_document: fig_caption: yes keep_tex: yes latex_engine: pdflatex template: ../svm-latex-syllabus.tex word_document: default html_document: df_print: pagedemail: j.chen2@westensydney.edu.aufontfamily: mathpazofontsize: 11ptgeometry: margin=1inheader-includes: \linespread{1.05}office: 22B Bankstown Campusofficehours: W 10:00-11:30 a.m.classroom: '*online*'classhours: TR 03:00-04:45 p.m.生成的結果是這樣的
需要注意的是Required Readings是通過外部Bib文件生成的:
這裡master是作者原來的文件,refer.bib是我自己的文獻,這種文件格式通常可以直接同網上或者自己的文件管理系統裡導出。這個的好處是,我們可以輕鬆的課程大綱裡插入我們平時存儲好的文獻。對應模板裡的這個部分。
library(RefManageR)bib <- ReadBib("refer.bib")myopts <- BibOptions(bib.style = "authoryear", style="latex", first.inits=FALSE, max.names = 20)bib["maddieson_tense_1985", "chen_acoustic_2000"]注意第四行的引用是針對bib文件裡的第一行名稱ID的:
然後就會自動插入文獻,這樣就變成了我要的文獻。
原作者的模板,還包括一個有意思的部分:
Graph <- ggplot(Attend, aes(x = perattend, y = rgrade))Graph + geom_point() + labs(x="Percent Attendance in Class", y="Final Grade in Class (0-100)") + geom_smooth(method=lm)
作者將學生的考勤和成績做了一個簡單的回歸,發現成正相關,以此印證不出勤就會掛的要求。如果一門課講過不止一次,就可以將過去學生的數據放在教學大綱裡,讓學生有所了解。
模板還可以自動計算每周課程的時間
mon <- as.Date("2020-09-20")
advdate <- function(obj, adv) { tmon <- obj + 7*(adv-1) tfri <- obj + 4 + 7*(adv-1) tmon <- format(tmon, format="%m/%d") tfri <- format(tfri, format="%m/%d") zadv <- sprintf("%02d", adv) tmp <- paste("Week ",zadv,sep='',", ", tmon," - ",tfri) return(tmp)}## `r advdate(mon, 1)`: Syllabus Date
特別推薦