84
Le logiciel R - Maˆ ıtriser le langage
> Taille <- c(190,184)
> IMC <- round(Poids/(Taille/100)^2,3)
> mat <- cbind(Prenoms,Poids,Taille,IMC)
> insertmult <- function(vect)
+
paste("(",toString(c(encodeString(vect[1],quote="'"),
+
vect[-1])),")",sep="")
> ainserer <- toString(apply(mat,1,insertmult))
> ainserer
[1] "(’Benoit’, 70, 190, 19.391), (’Rémy’, 75, 184, 22.153)"
> require("RODBC")
> Connex <- odbcConnect(dsn="dsnIMC",uid="root",pwd="")
> requete <- paste("INSERT INTO matable (Prenom,Poids,Taille,IMC)
+
VALUES ",ainserer,sep="")
> resultat <- sqlQuery(Connex,requete)
> odbcClose(Connex)
Astuce
Vous pouvez retourner dans phpMyAdmin pour v´ erifier que la table
matable a bien ´ et´ e modifi´ ee (onglet Afficher).
2.4.4 Lire dans une table
Afin de lire, depuis R, les informations pr´ esentes dans la table matable, vous
pouvez utiliser les instructions suivantes.
> require("RODBC")
> Connex <- odbcConnect(dsn="dsnIMC",uid="root",pwd="")
> requete <- "SELECT * FROM matable"
> data <- sqlQuery(Connex,requete)
> odbcClose(Connex)
> data
Prenom Poids Taille
IMC
1 Pierre
72
182 0.000
2 Benoit
70
190 19.391
3
Rémy
75
184 22.153