inst/aux_files/other/mista.R

In ivanalaman/EDM: Exams Database Manager

 HTML(paste('<textarea id="inputTextToSave6" style="width: 700px; height: 250px;" rows="3" cols="40"><<echo=FALSE, results=hide>>=  &#13;&#10;questions <- solutions <- NULL &#13;&#10;questions[1] <- "',
 tr("altmista"),
 '" &#13;&#10;solutions[1] <- "',
 tr("respmista"),
 '" &#13;&#10;questions[2] <- "',
 tr("altmistb"),
 '" &#13;&#10;solutions[2] <- 6 #',
 tr("tquestaon"),
 '  &#13;&#10;@ &#13;&#10; &#13;&#10;\\begin{question} &#13;&#10;',
 tr("quesmista"),
 '  &#13;&#10;<<echo=FALSE, results=hide, results=tex>>= &#13;&#10; answerlist(questions) &#13;&#10;@  &#13;&#10;\\end{question}  &#13;&#10;&#13;&#10;\\begin{solution} &#13;&#10;<<echo=FALSE, results=hide, results=tex>>=  &#13;&#10; answerlist(format(solutions))  &#13;&#10;@  &#13;&#10;\\end{solution}  &#13;&#10;  &#13;&#10;%% META-INFORMATION  &#13;&#10;%% \\extype{cloze}  &#13;&#10;%% \\exsolution{\\Sexpr{paste(solutions, collapse = "|")}}   &#13;&#10;%% \\exclozetype{string|num} </textarea>',
 sep=''))