In dmurdoch/SSCcompetition: Helper for Running SSC Student Research Competition

knitr::opts_chunk$set(echo = FALSE)

knitr::kable(talks[, c("datetime", "room", "studentName", "studentAffiliation")])

cat("\\pagestyle{empty}\n")
for (i in seq_len(nrow(talks))) {
  talk <- talks[i,]
  cat("\\cleardoublepage\n")
  cat(talk$datetime, talk$room, talk$sessionName, "\n")
  abstract <- readLines(file.path(dir, "Abstracts", talk$abstract))
  cat("```\n")
  cat(abstract, sep = "\n")
  cat("```\n\\clearpage\n")
  scoresheet(talk, oral = !grepl("Poster", talk$sessionName))
  cat("\\includepdf[fitpaper=true,pages=-]{",params$summaries[i],"}\n", sep="")
}