HTML(paste0('<textarea id="inputTextToSave5" style="width: 700px; height: 250px;" rows="3" cols="40"><<echo=FALSE, results=hide>>= questions <- solutions <-NULL questions[1] <- "',
tr("assa"),
'" solutions[1] <- 2 questions[2] <- "',
tr("assb"),
'" solutions[2] <- 1 o <- sample(1:2) questions <- questions[o] solutions <- solutions[o] @ \\begin{question} ',
tr("quesasso"),
' \\begin{enumerate} \\item ',
tr("condassod"),
' \\item ',
tr("condassoc"),
' \\end{enumerate} \\begin{answerlist} \\item \\Sexpr{questions[1]} \\item \\Sexpr{questions[2]} \\end{answerlist} \\end{question} \\begin{solution} \\begin{answerlist} \\item \\Sexpr{solutions[1]} \\item \\Sexpr{solutions[2]} \\end{answerlist} \\end{solution} %% META-INFORMATION %% \\extype{cloze} %% \\exsolution{\\Sexpr{paste(solutions, collapse="|")}} %% \\exclozetype{num|num} </textarea>'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.