Интерактивно создавайте вопросы и викторины в учебном документе RMarkdown.

Question

Я хотел бы создать учебник learnr в RMarkdown с файлами в папке responses, которые содержат данные для вопросов, видео и тестов. У меня есть три CSV-файла в папке responses:

[1] "responses/20181109-163432_question.csv" "responses/20181109-163437_video.csv"   
[3] "responses/20181109-163442_quiz.csv"    

В learnr R уценке, с YAML:

title: "Create Question/Video/Quiz"
output: 
  learnr::tutorial:
    progressive: true
    allow_skip: true
runtime: shiny_prerendered

Я бы хотел пройтись по этим файлам и, если файл question, создать шаблон вопроса, если video, создать шаблон видео и, если quiz, создать шаблон викторины.

Когда я говорю шаблон, я имею в виду learnr функции:

question шаблон будет:

```{r letter-a, echo=FALSE}

    question("What number is the letter A in the English alphabet?",
      answer("8"),
      answer("14"),
      answer("1", correct = TRUE),
      answer("23"),
      random_answer_order = TRUE
    )
```

Шаблон видео будет:

```{r}
# Video Title
![](https://youtu.be/zNzZ1PfUDNk){width="90%"}
``` 

И шаблон викторины будет:

``{r quiz1, echo=FALSE}
quiz(caption = "Quiz 1",
  question("What number is the letter A in the *English* alphabet?",
    answer("8"),
    answer("14"),
    answer("1", correct = TRUE),
    answer("23")
  ),
  question("Where are you right now? (select ALL that apply)",
    answer("Planet Earth", correct = TRUE),
    answer("Pluto"),
    answer("At a computing device", correct = TRUE),
    answer("In the Milky Way", correct = TRUE),
    incorrect = "Incorrect. You're on Earth, in the Milky Way, at a computer."
  )
)
```

Примечание. Эти шаблоны взяты из учебника learnr