questoes <- params$questoes for(i in 1:nrow(questoes)) { cat(sprintf('1. %s a. %s a. %s a. %s a. %s ', questoes[i,]$questao, questoes[i,]$alternativas[[1]][1], questoes[i,]$alternativas[[1]][2], questoes[i,]$alternativas[[1]][3], questoes[i,]$alternativas[[1]][4] )) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.