if (FALSE) {
# Use readLines to read in a quiz
quiz_path <- good_quiz_path()
quiz_lines <- readLines(quiz_path)
# Use group_split to get the questions
questions_df <- parse_quiz(quiz_lines)$data %>%
dplyr::group_split(question)
good_quiz_checks <- check_question(questions_df[[2]])
}
Run the code above in your browser using DataLab