# NOT RUN {
library(sp)
library(raster)
data(DAYMET_tiles)
e <- extent(-117.2567, -104.7523, 36.62797, 47.68194)
plot(DAYMET_tiles)
plot(e, col="red", add=TRUE)
# Using extent object
daymet.tiles(x = e, tiles = DAYMET_tiles, ids = "Id")
# Using sp object
e <- as(e, "SpatialPolygons")
daymet.tiles(e, tiles = DAYMET_tiles, ids = "Id")
# Using bounding coordinates
daymet.tiles(coords=c(-117.2567, -104.7523, 36.62797, 47.68194),
tiles = DAYMET_tiles, ids = "Id" )
# Return sp polygons object
tiles <- daymet.tiles(x = e, tiles = DAYMET_tiles, ids = "Id", sp = TRUE)
plot(DAYMET_tiles)
plot(tiles, col="red", add=TRUE)
# }
# NOT RUN {
# batch download of DAYMET tiles using function
tile.ids = daymet.tiles(e)
download.daymet(years=2010, tile=tile.ids, data.type=c('tmin'))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab