如何将 checkr 包与 learnr 一起使用？

Question

exercise tutorial 到 learnr 包指的是 checkr 包：

checkr 包目前提供了与学习器兼容的代码检查功能。

（请注意，此引用确实不指向 CRAN 包 checkr。不幸的是，包名称重复。）

但是在learnr 教程中没有建议如何将它与checkr 一起使用。另一方面，checkr 中的小插图仍然是草稿版本，讨论了高级问题，并且缺乏与 learnr 相关的简单示例。

我正在寻找的是一个模型示例的具体过程。例如：如何使用learnrR Markdown 模板“交互式教程”提供的two-plus-twoexample 检查学生输入。

所以我的问题是：如何检查 learnr 使用 checkr 包添加二加二所需的 R 代码？

---

也许这个问题应该使用新标签（learnr 和 checkr），但我没有这样做的权限。

Answer 1

经过多次实验，以下程序对我有用：

1. 我已经启动了一个新项目并加载了 R Markdown 模板 “交互式教程”并将其命名为“01-Exercises”。工作室 生成了一个此名称的文件夹并将我的“01-Exercises.Rmd”放入此 文件夹。
2. 我已将行 tutorial_options(exercise.checker = checkr::check_for_learnr) 添加到我的设置块中 “01-Exercises.Rmd”文件。
3. 我添加了一个带有标签two-and-two-check 的新R 块。 （= 与学生任务的块名称相同，但添加了-check。）
4. 在这个 R 块中，我只添加了一行 check_two_and_two(USER_CODE)，它将成为我的测试函数。
5. 我在一个额外的脚本文件“check_test.R”中编写了一个测试函数check_two_and_two，并保存在一个文件夹“www”下。
6. 我已将此脚本用于函数到内存中。我从控制台运行rmarkdown::run("01-Exercises/01-Exercises.Rmd")。

这是我的测试函数：

check_two_and_two <- function(USER_CODE) {
    code <- for_checkr(USER_CODE)
    t1 <- line_where(code, insist(all(F == "+"), "Your operator is {{F}}. This is not the assigned task."))
    if (failed(t1)) return(t1)
    t2 <- line_where(code, insist(all(V == 4), "Your solution is {{V}}. This is not the result (= 4) asked for."))
    if (failed(t2)) return(t2)
    line_binding(code, 2 + 2, failif(FALSE, "The pattern did not match."), message = "The result is correct, but I was looking for 2 + 2.")
}

即使这对我有用：也许有更好（更有效）的解决方案？