R/load_sub.R

In skranz/RTutorSAGI: Submission Analysis for Grading and Improvement

#' Load all submissions from a directory
#'
#' See README.md for usage
#'
#' @param sub.dir The directory in which all submission files can be found.
load.subs = function(sub.dir = "sub", files=NULL, stud.name.fun=NULL, warn=TRUE, max.files=NA) {
  restore.point("load.subs")

  if (is.null(files)) {
    #files = list.files(sub.dir,pattern = glob2rx("*.sub"),full.names = TRUE, recursive = TRUE)
    files = list.files(sub.dir,pattern = glob2rx("*.*"),full.names = TRUE, recursive = TRUE)
    wrong.files = files[tools::file_ext(files) != "sub"]
    if (length(wrong.files)>0) {
      files = setdiff(files, wrong.files)
      str = paste0("\nThe following submissions have not the extension .sub and will be ignored:\n\n ", basename(wrong.files), collapse=",\n ")
      write.grade.log(str,console = if (warn) "warning" else "cat")
    }
  }
  if (!is.na(max.files)) {
    if (max.files<length(files)) files = files[1:max.files]
  }
  sub.li = lapply(files, load.sub, stud.name.fun=stud.name.fun)
  sub.li = sub.li[!sapply(sub.li, is.null)]
  sub.li
}

#' Load a single submission file
#'
#' See README.md for usage
load.sub = function(file, stud.name.fun=NULL) {
  restore.point("load.sub.with.stud.name")

  res = try(load(file),silent = TRUE)
  if (is(res,"try-error")) {
    cat("\nCould not load file\n",file,"\n", as.character(res))
    return(NULL)
  }

  if (!is.null(stud.name.fun)) {
    stud.name = stud.name.fun(file, sub)
    sub$stud.name = stud.name
  } else {
    sub$stud.name = sub$user.name
  }
  sub$log.df$stud.name = sub$stud.name
  sub$log.df$ps.name = sub$ps.name
  sub
}