R/generate_matching.R

In moodef: Defining 'Moodle' Elements from R

#' Generate `matching` question
#'
#' @param answer A vector of strings.
#' @param a_values A vector, rest of answers.
#' @param correct_feedback A string.
#' @param incorrect_feedback A string.
#' @param partially_correct_feedback A string.
#'
#' @return A string.
#' @keywords internal
generate_matching <-
  function(answer,
           a_values,
           correct_feedback,
           incorrect_feedback,
           partially_correct_feedback) {
    question <- glue::glue(
      '

    <shuffleanswers>true</shuffleanswers>
    <correctfeedback format="html">
      <text>{correct_feedback}</text>
    </correctfeedback>
    <partiallycorrectfeedback format="html">
      <text>{partially_correct_feedback}</text>
    </partiallycorrectfeedback>
    <incorrectfeedback format="html">
      <text>{incorrect_feedback}</text>
    </incorrectfeedback>
    <shownumcorrect/>
    <subquestion format="html">
      <text><![CDATA[<p>{answer[1]}<br></p>]]></text>
      <answer>
        <text>{answer[2]}</text>
      </answer>
    </subquestion>
'
    )

    others <- NULL
    for (r in a_values) {
      r <- string_to_vector(r)
      others <- paste0 (
        others,
        glue::glue(
          '

    <subquestion format="html">
      <text><![CDATA[<p>{r[1]}<br></p>]]></text>
      <answer>
        <text>{r[2]}</text>
      </answer>
    </subquestion>
'
        )
      )
    }

    question_body <- paste0(question, others)
    question_body
  }