In jtrecenti/criarProva:

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]
  ))
}

jtrecenti/criarProva documentation built on May 20, 2019, 3:17 a.m.