# 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="")