是否可以在r-exams中使用数据帧？

# 安装并加载 r-exams 包
install.packages("exams")
library(exams)

# 创建一个数据帧来存储选择题信息
questions <- data.frame(
  question = c("What is 2 + 2?", "What is the capital of France?"),
  options = list(
    c("3", "4", "5", "6"),
    c("Berlin", "Madrid", "Paris", "Rome")
  ),
  answer = c(2, 3)  # 答案选项的索引（从1开始）
)

# 定义一个函数来生成选择题
generate_choice_question <- function(q) {
  question_text <- q$question
  option_list <- q$options
  correct_answer <- q$answer
  
  # 使用 exams 的 make_choice 函数生成题目
  exam_question <- make_choice(
    question = question_text,
    answer = correct_answer,
    options = option_list
  )
  
  return(exam_question)
}

# 生成并打印题目
for (i in 1:nrow(questions)) {
  print(generate_choice_question(questions[i, ]))
}