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).