HTML(paste('<textarea id="inputTextToSave3" style="width: 700px; height: 250px;" rows="3" cols="40"><<echo=FALSE,results=hide>>= questions <- solutions <- NULL questions[1] <- "',
tr("altmulta"),
'" solutions[1] <- FALSE questions[2] <- "',
tr("altmultb"),
'" solutions[2] <- TRUE questions[3] <- "',
tr("altmultc"),
'" solutions[3] <- FALSE o <- sample(1:3) # serve para embaralhar as alternativas questions <- questions[o] solutions <- solutions[o] @ \\begin{question} ',
tr("quesmult"),
' \\begin{answerlist} \\item \\Sexpr{questions[1]} \\item \\Sexpr{questions[2]} \\item \\Sexpr{questions[3]} \\end{answerlist} \\end{question} \\begin{solution} \\begin{answerlist} \\item \\Sexpr{mchoice2text(solutions[1])} \\item \\Sexpr{mchoice2text(solutions[2])} \\item \\Sexpr{mchoice2text(solutions[3])} \\end{answerlist} \\end{solution} %% META-INFORMATION %% \\extype{mchoice} %% \\exsolution{\\Sexpr{mchoice2string(solutions, single=FALSE)}} </textarea>',
sep=''))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.