# library(animation) ; tidy.source("googimg_4.r", keep.blank.line=TRUE) # lecture de la base avec les triplets adrimg <- read.csv2("adresult.rgoogle_img.txt", header = TRUE) colnames(adrimg) <- c("repgoog", "precgoog", "lat", "long", "naccess", "numdu", "numad", "numéro.rue", "rue", "code.postal", "commune", "france", "y.nd", "x.nd", "azimut") # génération du tableau de coordonnés adrimg.latlon <- adrimg[, 3:4] # génération des couples a= adresse originale, b = 1ère adresse référente, c = 2ème adresse référente # création des triplets a<-seq(1,nrow(adrimg.latlon), by=3) b<-seq(2,nrow(adrimg.latlon), by=3) c<-seq(3,nrow(adrimg.latlon), by=3) # génération des markers sur la carte library(RgoogleMaps) adrimg.latlon <- cbind(adrimg.latlon, rep(c("red", "blue", "green"), nrow(adrimg.latlon)/3)) colnames(adrimg.latlon) <- c("lat", "lon", "col") # Téléchargement des photos dans le repertoire /home/mehdi/Images/ # Si la connection s'intérrompt pendant le téléchargement des photos il faut reprendre ici et remplacer le "1" dans "for (i in 1:(nrow(adrimg.latlon)/3))" par le numéro à partir duquel on veut repartir. Attention on ne peu télécharger que 250 photos par jour. i<-1 for (i in 1:(nrow(adrimg.latlon)/3)) { markers <- adrimg.latlon[c(a[i], b[i], c[i]), ] markers[,1] lat = c(markers[,1]) lon = c(markers[,2]) center = c(mean(lat), mean(lon)) GetMap(center=center, zoom=18, markers = markers, destfile = gsub("'", "_", paste("/home/mehdi/Images/", i,"_", adrimg[a[i], 5], "_", adrimg[a[i], 8], "_", adrimg[a[i], 9], "_", adrimg[a[i], 10], ".png", sep = "")), maptype = c("hybrid")) print(i) print(nrow(adrimg.latlon)/3) Sys.sleep(10) } #####[ajouter des liens vers yahoo geocoder, mappy et le truc de microsoft]#### # Création d'un fichier html imprimable et clicable i=1 paste("
", i , "

", paste("", sep=""),adrimg[a[i], 5], "
",paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = " , adrimg[a[i], 14] , "
y = " , adrimg[a[i], 13], "
azimut = " , adrimg[a[i], 16] , "

", "





",sep = "")->html for (i in 2:300) { rbind(html,paste("
", i, "

", paste("", sep="") ,adrimg[a[i], 5], "
", paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = ", adrimg[a[i], 14], "
y = ", adrimg[a[i], 13], "
azimut = ", adrimg[a[i], 16], "

", "



",sep = ""))->html } i=301 paste("
", i , "

", paste("", sep=""),adrimg[a[i], 5], "
",paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = " , adrimg[a[i], 14] , "
y = " , adrimg[a[i], 13], "
azimut = " , adrimg[a[i], 16] , "

", "





",sep = "")->html2 for (i in 302:600) { rbind(html2,paste("
", i, "

", paste("", sep="") ,adrimg[a[i], 5], "
", paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = ", adrimg[a[i], 14], "
y = ", adrimg[a[i], 13], "
azimut = ", adrimg[a[i], 16], "

", "



",sep = ""))->html2 } i=601 paste("
", i , "

", paste("", sep=""),adrimg[a[i], 5], "
",paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = " , adrimg[a[i], 14] , "
y = " , adrimg[a[i], 13], "
azimut = " , adrimg[a[i], 16] , "

", "





",sep = "")->html3 for (i in 602:900) { rbind(html3,paste("
", i, "

", paste("", sep="") ,adrimg[a[i], 5], "
", paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = ", adrimg[a[i], 14], "
y = ", adrimg[a[i], 13], "
azimut = ", adrimg[a[i], 16], "

", "



",sep = ""))->html3 } i=901 paste("
", i , "

", paste("", sep=""),adrimg[a[i], 5], "
",paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = " , adrimg[a[i], 14] , "
y = " , adrimg[a[i], 13], "
azimut = " , adrimg[a[i], 16] , "

", "





",sep = "")->html4 for (i in 902:1200) { rbind(html4,paste("
", i, "

", paste("", sep="") ,adrimg[a[i], 5], "
", paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = ", adrimg[a[i], 14], "
y = ", adrimg[a[i], 13], "
azimut = ", adrimg[a[i], 16], "

", "



",sep = ""))->html4 } i=1201 paste("
", i , "

", paste("", sep=""),adrimg[a[i], 5], "
",paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = " , adrimg[a[i], 14] , "
y = " , adrimg[a[i], 13], "
azimut = " , adrimg[a[i], 16] , "

", "





",sep = "")->html5 for (i in 1202:(nrow(adrimg.latlon)/3)) { rbind(html5,paste("
", i, "

", paste("", sep="") ,adrimg[a[i], 5], "
", paste("", sep=""),adrimg[a[i], 8], " ", adrimg[a[i], 9], " ", adrimg[a[i], 10]," ",adrimg[a[i], 11], "
x = ", adrimg[a[i], 14], "
y = ", adrimg[a[i], 13], "
azimut = ", adrimg[a[i], 16], "

", "



",sep = ""))->html5 } # ecritures du fichier html intitulé photos.html dans le repertoire /home/mehdi/Images/ on peut lire ce fichier avec un navigateur (dans firefoxon pourrat avoir une impréssion avec une mise en page) mais on peut aussi le lire avec un traitement de texte (clic droit sur le fichier et ouvrir avec). write.table(html, "/home/mehdi/Images/photos1.html", row.names = FALSE) write.table(html2, "/home/mehdi/Images/photos2.html", row.names = FALSE) write.table(html3, "/home/mehdi/Images/photos3.html", row.names = FALSE) write.table(html4, "/home/mehdi/Images/photos4.html", row.names = FALSE) write.table(html5, "/home/mehdi/Images/photos5.html", row.names = FALSE) # suite 35+rue+du+8+Mai+1945+ L%27Ha%C3%BF+les+Roses paste("", sep="") paste("", sep="")