# NOT RUN {
simulated_data <- data.frame(
id = seq(1, 100, 1),
lat = runif(100, 44.1114, 44.1123),
lng = runif(100, -73.92273, -73.92147)
)
simulated_data <- sf::st_as_sf(simulated_data, coords = c("lng", "lat"))
downloaded_tiles <- get_tiles(simulated_data,
services = c("elevation", "ortho"),
georeference = FALSE)
georeference_overlay(
overlay_file = downloaded_tiles[[2]],
reference_raster = downloaded_tiles[[1]],
output_file = tempfile(fileext = ".tif")
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab