inst/examples/questions.R

In rpc5102/rlocker: Learning Locker for Shiny

# Question Bank

questions <- list(
  list(
    id = "question_1",
    title = "Question 1",
    text = "What type of histogram is this?",
    type = "radio",
    choices = c(
      "Log-normal (rlnorm)" = "rlnorm",
      "Uniform (unif)" = "unif",
      "Normal (rnorm)" = "rnorm",
      "Exponential (exp)" = "exp"
    ),
    answer = "rnorm"
  ),
  list(
    id = "question_2",
    title = "Question 2",
    text = "What type of histogram is this?",
    type = "radio",
    choices = c(
      "Normal (rnorm)" = "rnorm",
      "Uniform (unif)" = "unif",
      "Log-normal (rlnorm)" = "rlnorm",
      "Exponential (exp)" = "exp"
    ),
    answer = "rlnorm"
  )
)