In debruine/markr: University of Glasgow INP/Psych Marking

library(tidyverse)

r sum(!is.na(fb$mark)) of r length(fb$moodle_id) assessments marked from r length(unique(fb$moodle_id)) students for r length(unique(fb$question)) questions

if (!is.na(marking$eval) & "eval" %in% show) {
  cat("\\section{Evaluation categories}\n")
  marking$eval %>%
    pander::pandoc.table(
      split.cells = c(8, 65),
      justify = c("left", "left")
    )
}

if ("mark2" %in% show) {
  cat("\\section{Second marking}\n\n")

  suppressMessages(
    smark_table <- check_second_marking(marking, report = TRUE)
  )
}

if ("mark_dist" %in% show) {
  cat("\\section{Overall mark distribution}\n")
  mark_dist(marking)
}

if ("mark_dist" %in% show & 
    n_distinct(marking$marks$question) > 1) {
  cat("\\section{Mark distribution by question}\n")
  mark_dist(marking, TRUE)
}

if (!is.na(marking$eval) & "cat_dist" %in% show) {
  cat("\\section{Overall category distribution}\n")
  cat_dist(marking)
}

if (!is.na(marking$eval) & "cat_mark" %in% show) {
  cat("\\section{Category vs Mark correspondance}\n")
  cat_mark(marking)
}

debruine/markr documentation built on May 20, 2019, 5:57 p.m.