Tengo un archivo csv con coordenadas de latitud y longitud. Una muestra:
Lat Lon
94.2 13.4
32.2 12.4
89.3 24.4
El siguiente código recorre estas coordenadas Lat / Lon, encuentra la imagen asociada de esta ubicación en Google Street View, que luego puedo ver en R Markdown debajo de la celda del código.
Sin embargo, utilizando los datos de muestra anteriores, se devuelven 3 imágenes. Quiero guardarlos en mi disco duro en una carpeta de 'imágenes' específica fuera de mi directorio de trabajo. ¿Hay alguna forma de hacer esto?
# install.packages('googleway')
myfunction <- function(Lat, Lon){
google_streetview(
location = c(Lat, Lng), # lat/lon coordinates
size = c(600, 400), # w x h
)
}
purrr::map2(data$Lat, data$Lon, myfunction)
lapplypara aplicar la función a cada elemento de su lista por turnoPor ejemplo, el siguiente código (no probado) debería guardar sus imágenes en una serie de archivos denominados image00001.jpg, img00002.jpg , etc.
library(tidyverse)
positions <- list(c("lat"=94.2, "lon"=13.4),c("lat"=32.2, "lon"=12.4),c("lat"=89.3, "lon"=24.2))
imgCount <- 0
lapply(
positions,
function(x) {
google_streetview(
location = c(x$lat, x$lon), # lat/lon coordinates
size = c(600, 400), # w x h
)
imgCount <<- imgCount + 1
ggsave(paste0("image", sprintf("%05d", imgCount), ".jpg"))
}
)
Tenga en cuenta el uso de <<-para garantizar que el contador se incremente correctamente.
Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.
En caso de infracción, por favor [email protected] Eliminar
Déjame decir algunas palabras