In tpemartin/rmdgrader:

knitr::opts_chunk$set(echo = TRUE, eval=F)
library(drake)
library(econDV)
library(dplyr)

makecondition

library(drake)
library(rmd2drake)
library(dplyr)
library(googleclassroom)
library(readr)
library(rmdgrader)
library(purrr)
library(rlang)
library(testthat)
library(withr)
rprojroot::is_rstudio_project$make_fix_file() -> .root

correctAnsFilename <- file.path(
  .root(),params$ansfilename
)

studentsRmds = {
  studentsRmds <-  list.files(
    file.path(.root(), params$submissionFolder, params$title)
    , full.names = T) %>%
    stringr::str_subset("\\.Rmd$")
  studentsRmds
}

allRmds

allRmds = {


  allRmds <- c(
    correctAnsFilename,
    studentsRmds
  )
  allRmds %>% length() #69
  allRmds
}

object values

objectValues = {
  objectValues <- get_answerObjectValues(allRmds, correctAnsFilename)
  destfile=file.path(.root(),params$gradingFolder, params$title,"data4step3.Rdata")
  save(objectValues,allRmds, file=destfile)
  objectValues
}