# NOT RUN {
# Radio button question implementation of `question_is_correct`
question_is_correct.radio <- function(question, value, ...) {
for (ans in question$answers) {
if (as.character(ans$option) == value) {
return(mark_as(
ans$correct,
ans$message
))
}
}
mark_as(FALSE, NULL)
}
# }
Run the code above in your browser using DataLab