rQCM: Créer des QCM

QCM_test <- list(
  list(question = 'Quel est le périmètre de la terre ?',
       correct = '40 000 km',
       wrong = c('10 000 km', '20 000 km', '30 000 km', '31 416 km'),
       tag = 'science, culture générales, histoire, terre, connaissance'),
  list(question = 'Parmis les fonctions usuelles suivantes, lesquelles sont des bijections ?',
       correct = c('exp', 'ln', 'inv', 'cube'),
       wrong = c('sin', 'cos', 'carré', 'logistique'),
       tag = 'math, culture générale, fonction, bijection'),
  list(question = 'Parmi les nombres suivants, quel est celui qui est une solution de l\'équation $x^2= 4x - 3$ ?',
       correct = c('$1$', '$3$'),
       wrong = c('$0$', '$3$', '$\\sqrt{3}$', '$2 - \\sqrt{7}$'),
       tag = 'math, seconde, trinome'),
  list(question = 'Si A, B et C sont 3 réels quelconque, quelles assertions sont-elles vraies ?',
       correct = c('$A=B\\Leftrightarrow A+C=B+C$', 'Si $AB=0$ alors $A=0$ ou $B=0$', 'Si $C\\neq0$ alors $A=B\\Leftrightarrow \\frac{A}{C}=\\frac{B}{C}$'),
       wrong = c('Si $C=0$ alors $A=B\\Leftrightarrow AC=BC$', 'Si $C=0$ alors $A=B\\Leftrightarrow \\frac{A}{C}=\\frac{B}{C}$'),
       tag = 'math, seconde, regles de calcul'),
  list(question = 'L\'ensemble solution de l\'inéquation $3x+2 < x - 4$ mathematiques est :',
       correct = c('$\\left]-\\infty ; -3\\right[$'),
       wrong = c('$\\left]-\\infty ; 3\\right[$', '$\\left]-3, +\\infty\\right[$', '$\\left]3 ; +\\infty\\right[$', 'autre réponse'),
       tag = 'math, seconde, inequation')
)

usethis::use_data(QCM_test, overwrite = TRUE)