require(MultipleChoice)
.the_scorekeeper <<- createScorekeeper()
show_hints <- TRUE
actionButton("update", "Send scores.")

tableOutput("scores")
output$scores <- renderTable({
  if (input$update == 0) return(NULL)
  .the_scorekeeper$save_scores("DTK", "assignment 1", "my IP", "scoresDTK.Rda")
  foo <- .the_scorekeeper$report()
  foo$when <- as.character(foo$when) # display sensibly the time stamp

  foo

})

Multiple Choice

Problem 1


Problem 2


Problem 3


Computational Technique



dtkaplan/MultipleChoice documentation built on May 15, 2019, 4:58 p.m.