Extracting autograder

#Make sure wkhtmltopdf is installed to the path...

#Set the working directory
mainDir <- getwd()
targetFiles <- list.files(pattern = "html", recursive = T, full.names = T)
dir.create("0_HTML")
targetFilesUpdated <- sub('/0_', "_", targetFiles, fixed = TRUE)
targetFilesUpdated <- sub('./', '0_HTML/', targetFilesUpdated)
file.rename(targetFiles, targetFilesUpdated)

##Get the PDFs
subDir <- paste0(mainDir, "/0_HTML")
setwd(subDir)
system('for f in *.html; do wkhtmltopdf "$f" "$f.pdf"; done')
setwd(mainDir)

##Export grades
targetFiles <- list.files(".", pattern = "README.md",recursive = TRUE, full.names = TRUE)
grades <- do.call(rbind,lapply(targetFiles, function(x){
targetFile <- readLines(x)

points <- targetFile[grep("Auto-grade", targetFile)]
points <- gsub(".*,","",points)

points2 <- targetFile[grep("Extra credit", targetFile)]
points2 <- gsub(".*,","",points2)
points2 <- ifelse(length(points2) ==0 , NA, points2)

cbind.data.frame(student= strsplit(x, "/")[[1]][2] , points =points, points2=points2)
}))

##Export grades

write.csv(grades, "0_grades.csv")