inst/aux_files/other/associacao.R

In ivanalaman/EDM: Exams Database Manager

HTML(paste0('<textarea id="inputTextToSave5" style="width: 700px; height: 250px;" rows="3" cols="40"><<echo=FALSE, results=hide>>= &#13;&#10; questions <- solutions <-NULL   &#13;&#10; questions[1] <- "',
 tr("assa"),
'"  &#13;&#10; solutions[1] <- 2  &#13;&#10; questions[2] <- "',
 tr("assb"),
'"  &#13;&#10; solutions[2] <- 1  &#13;&#10; o <- sample(1:2)  &#13;&#10; questions <- questions[o]  &#13;&#10; solutions <- solutions[o] &#13;&#10;@  &#13;&#10;&#13;&#10;\\begin{question}  &#13;&#10;',
 tr("quesasso"),
'&#13;&#10;&#13;&#10;\\begin{enumerate}  &#13;&#10;\\item ',
 tr("condassod"),
'&#13;&#10;\\item ',
 tr("condassoc"), 
'&#13;&#10;\\end{enumerate}  &#13;&#10; &#13;&#10;\\begin{answerlist}  &#13;&#10;\\item \\Sexpr{questions[1]}  &#13;&#10;\\item \\Sexpr{questions[2]}  &#13;&#10;\\end{answerlist}  &#13;&#10;\\end{question}  &#13;&#10;&#13;&#10;\\begin{solution}  &#13;&#10;\\begin{answerlist}  &#13;&#10;\\item \\Sexpr{solutions[1]}  &#13;&#10;\\item \\Sexpr{solutions[2]}  &#13;&#10;\\end{answerlist}  &#13;&#10;\\end{solution} &#13;&#10;&#13;&#10;%% META-INFORMATION  &#13;&#10;%% \\extype{cloze}  &#13;&#10;%% \\exsolution{\\Sexpr{paste(solutions, collapse="|")}}  &#13;&#10;%% \\exclozetype{num|num}  </textarea>'))