if (FALSE) {
simulated_data <- data.frame(
lat = c(44.10379, 44.17573),
lng = c(-74.01177, -73.91171)
)
simulated_data <- sf::st_as_sf(simulated_data, coords = c("lng", "lat"))
img_files <- get_tiles(simulated_data)
merge_rasters(img_files[[1]])
}
Run the code above in your browser using DataLab