if (FALSE) {
# Commencer un nouveau questionnaire
q <- debuter_xml.moodle( "exemple.libre" )
# Catégorie : exemples
categorie.moodle( "Exemples SARP/Question libre" )
# Une question Moodle libre avec champs numériques
question_libre.moodle( "Indiquez les chiffres du nombre 1974.",
list( "Unité : ", " — dizaine : ",
" — centaine : ", " — milliers : " ), ".",
reponses = list( 4, 7, 9, 1 ) )
# Avec un champ numérique et des champs à choix multiples
question_libre.moodle( "Le Corbeau et le Renard.",
list( "Maître ",
" sur son arbre perchéTenait en son bec un ",
".Maître ",
paste0( "par l'odeur alléché...",
"est un poème composé en " ) ),
" par le poète Jean de la Fontaine.",
types = c( "MULTICHOICE", "MULTICHOICE_H",
"SHORTANSWER", "NUMERICAL" ),
reponses = list( list( "Textes" = c( "Renard", "Goupil",
"Corbeau", "Corneille" ),
"Correct" = c( FALSE, FALSE, TRUE, FALSE ) ),
list( "Textes" = c( "Fromage", "Camembert",
"Bleu", "Livre" ),
"Correct" = c( TRUE, FALSE, FALSE, FALSE ) ),
list( "Textes" = c( "Renard", "Goupil",
"Corbeau", "Corneille" ),
"Correct" = c( TRUE, FALSE, FALSE, FALSE ) ),
1668 ) )
# On termine le questionnaire
finir_xml.moodle( )
# Importez le fichier exemple.libre.xml dans Moodle pour voir le résultat...
print(
"Importez le fichier exemple.libre.xml dans Moodle pour voir le r\u00e9sultat..." )
}
Run the code above in your browser using DataLab