Extracting solutions from metainfo file in r-exams package

extract_solutions.R

extract_solutions <- function(file) {
  
  require(tidyverse)
  
  # input:
  # file: the output file from the exam2nops call storing the exams meta info
  
  # output:
  # list of solutions for each exam variant and each question
  
  
  exammetainfo <- readRDS(file)
  
  sols <- list()
  
  for (i in 1:length(exammetainfo)) {
    
    sols[[i]] <-  exammetainfo[[i]] %>% 
      map(~ pluck(.x, "metainfo", "solution"))
    
    
  }
  
  return(sols)
}


# Example (not run)

metainfofile <- "output/metainfo.rds"


extract_solutions(metainfofile)