R/create_grade_sheet.R

In adamblake/nbsimplegrader_companion: A Companion Package to the nbsimplgrader Jupyter Extension

#' Create the grade sheets
#'
#' @param file_paths Location of the grade sheets.
#' @param write_to The CSV file to write the grade sheet to.
#'
#' @return Grade sheet tibble (invisibly).
#' @export
create_grade_sheet <- function(file_paths, write_to = NULL) {
  file_paths %>%
    purrr::map(read_notebook) %>%
    purrr::map(extract_grade_row) %>%
    dplyr::bind_rows() %>%
    readr::write_excel_csv(path = write_to, na = '')
}