if (FALSE) {
# Commencer un nouveau questionnaire
q <- debuter_xml.moodle( "exemple.qroc" )
# Catégorie : exemples
categorie.moodle( "Exemples SARP/QROC" )
# Une question Moodle en QROC, avec une seule bonne réponse
qroc.moodle( "Quel est le prénom de Victor HUGO ?",
"Victor" )
# La même, en indiquant que l'initiale doit être en majuscule
qroc.moodle( "Quel est le prénom de Victor HUGO ?",
c( "Victor", "victor" ),
notes = c( 100, 50 ),
commentaires = c( NA, "N'oubliez pas la majuscule aux noms propres !" ) )
# On termine le questionnaire
finir_xml.moodle( )
# Importez le fichier exemple.numerique.xml dans Moodle pour voir le résultat...
print(
"Importez le fichier exemple.numerique.xml dans Moodle pour voir le résultat..." )
}
Run the code above in your browser using DataLab