R/quiz_widgets.R

In skranz/shinyChatQuiz: Shiny app for online lecture support with chat and quizzes

quizRadioButtons = function (id="quiz-choices", choices, selected = NA, width = "100%",as.html=FALSE)
{
  restore.point("quizRadioButtons")


  nchoice = length(choices)
  choices.html = paste0(
'<div class="radio" style="width: 100%">
  <label class="choice-label">
    <input type="radio" class="choice-input" name="quiz-choices" value="',1:nchoice,'">\n<span>',choices,'</span>
  </label>
</div>', collapse="\n")

  html = paste0(
'<div id="quiz-choices" style="width: 100%;" class="form-group shiny-input-radiogroup shiny-input-container shiny-bound-input">
  <div class="shiny-options-group">
',choices.html,'
  </div>
</div>'
  )

  if (as.html) return(html)
  return(HTML(html))
}