Create questions and quiz in learnr RMarkdown document

rmarkdown
shiny
learnr

#1

I'd like to create a learnr tutorial in RMarkdown with the files in the responses folder, which contain data for questions, video, and quizzes. I have here three csv files inside the responses folder:

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

In a learnr R Markdown, with the YAML:

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

I'd like to loop through these files and if a question file, create question template, if a video , create video template, and if a quiz , create quiz template.

When I say template, I'm referring to learnr functions:

question template would be:

```{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
    )

Video template would be:

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

And quiz template would be:

``{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."
  )
)

Note: These templates are taken from the learnr tutorial