Nous allons maintenant chercher à utiliser l'applette pour créer un sous-programme
nommé "calculer", afin d'isoler (du code relatif au formulaire)
les traitements statistiques et l'affichage html :
calculer = function(n, mu, sigma, graphique) {
vect = rnorm(n, mean=mu, sd=sigma)
# ----- construction du fichier html
library(R2HTML)
...
HTML(matrix(vect, nrow=1))
HTML.title("Graphiques", HR=2)
if (graphique=='oui') {
png("graph_1.png")
hist(vect, main='hasard')
dev.off()
HTMLInsertGraph("graph_1.png")
}
HTMLEndFile()
}
Pour cela, nous allons utiliser un mécanisme de transformation
de code Xml introduit dans l'exemple 2
et l'appliquer au code Xml
d'une des variantes (zone de texte, zone de liste...) :
-
étape 1 : mettre dans l'onglet Algorithme le code Xml
d'une des variantes (zone de texte, zone de liste...)
-
étape 2 : indiquer dans l'onglet Principal le critère de transformation,
c'est à dire ici l'option de calcul "Procédure"
(voir écran)
-
étape 3 : dans l'onglet Algorithme, cliquer sur le bouton Transformer
Il ne reste plus qu'à cliquer sur le bouton Traduire pour obtenir un programme
R (ou Sas).
Attention, n'oubliez pas en général de vérifier le résultat obtenu et de le modifier,
la transformation de code Xml proposée par l'applette n'étant pas forcément judicieuse.