Test avec R à afficher en ligne

#vider la mémoire
rm(list=ls())
##################
#Exercices 3 à 7 #
##################

#répertoire de travail
setwd("C:/cours/tm/td1")
library(XML)
#charger le document
document <- htmlParse(file="brel-vesoul.html")
print(document)

#Exploration arborescente du document
#####################################

#récupération de la racine du document
racine <- xmlRoot(document)
#nom de la structure
#c'est un document HTML, balisée par ...
nom <- xmlName(racine)
print(nom)
#nombre de "branches"
#racine est une structure de liste
nb <- xmlSize(racine)
print(nb)
#accéder à la première branche qui est ...
#######################################################