R/process_assignment_for_email.R

In P8105/p8105.helpers:

#' Process assignment for email
#'
#' For a single assignment, process the google spreadsheet to distribute grades to students via email
#'
#' @param assignment character; homework to process (e.g. "HW1")
#'
#' @import tidyverse
#' @importFrom janitor clean_names
#' @export
#'
process_assignment_for_email = function(sheet) {

  tidy_sheet =
    sheet %>%
    janitor::clean_names() %>%
    select(assignment, uni = sis_login_id, starts_with("problem")) %>%
    map_df(as.character) %>%
    pivot_longer(
      contains("problem"),
      names_to = "problem",
      names_prefix = "problem_",
      values_to = "value") %>%
    separate(problem, into = c("problem", "type"), "_") %>%
    mutate(problem = as_factor(problem),
           problem = fct_inorder(problem)) %>%
    pivot_wider(
      names_from = type,
      values_from = value) %>%
    mutate(comments = replace(comments, is.na(comments), ""),
           problem = paste0("problem_", problem)) %>%
    select(assignment, uni, problem, points, comments) %>%
    drop_na(points)

  nested_sheet =
    tidy_sheet %>%
    nest(data = c(problem, points, comments))

  written_comments =
    nested_sheet %>%
    pmap(write_comment_csv)

  sheet

}