R/grade_multi_files.R

In emse-p4a-gwu/p4aGrader: Autograder for for EMSE 4574: Programming for Analytics

#' This function is for the grader.
#' It tests all files under a folder, and it gives the results as a data frame.
#' @param folder_path is the folder's path.
#' @export
grade_multi_files <- function(folder_path, function_names){
  file_names <- list.files(folder_path, pattern="*.R", full.names = TRUE)
  results <- list()
  for (i in 1:length(file_names)) {
    results[[i]] <- grade_file(file_names[i], function_names)
  }
  return(do.call(rbind, results))
}