r - 允许多种方式与学习者互动

Question

我正在使用学习者开发一个教程（使用gradethis检查代码）。这是我的设置块。

    ```{r setup, include=FALSE}
    library(learnr)
    library(gapminder)
    gm <- data.frame(gapminder)
    
    library(tidyverse)
    tutorial_options(exercise.timelimit = 60)
    gradethis::gradethis_setup(allow_partial_matching=TRUE)
    ```

这是一个简单的练习：

使用 gm 求津巴布韦 1997 年的 GDP

```{r gdpzim, exercise=TRUE}
gm[...,...]
```

```{r gdpzim-solution, exercise.reveal_solution = FALSE}
gm[gm$country == "Zimbabwe" & gm$year==1997,  "gdpPercap"]
```

```{r gdpzim-code-check}
grade_this_code()
```

```{r gdpzim-check}
sol <- gm[gm$country == "Zimbabwe" & gm$year==1997,  "gdpPercap"]
grade_result(
  pass_if(~identical(.result, sol ))
)
```

我想找到这样代码检查同时接受：

gm[gm$country == "Zimbabwe" & gm$year==1997,  "gdpPercap"]

或者

gm[gm$year==1997 & gm$country == "Zimbabwe" ,  "gdpPercap"]

就像现在一样，第二个解决方案被拒绝了。

这只是一个通用问题，因为通常有不同的方法来编写一个给定问题可接受的解决方案。