if (FALSE) {
# ex 1 ############
# interactive tile selection
getTile()
getTile(mode = "draw")
}
# ex 2: Spatial ############
dsn <- system.file("ex/lux.shp", package = "terra")
Up <- raster::shapefile(dsn, "Up")
getTile(Up)
# ex 3: sf ############
ifl <- system.file("shape/nc.shp", package = "sf")
nc <- sf::st_read(ifl, quiet = TRUE)
getTile(nc)
# ex 4: tileH,tileV ############
getTile(tileH = 18:19, tileV = 4)
# ex 5: Raster* with valid CRS ############
rst1 <- raster(xmn = 9.2, xmx = 17.47, ymn = 46.12, ymx = 49.3)
getTile(rst1)
# this also works for projected data
rst3 <- projectExtent(rst1, crs = "+init=epsg:32633")
getTile(rst3)
# ex 6: Raster* without CRS or, alternatively, Extent or bbox --> treated as EPSG:4326 ############
mat2 <- matrix(seq(180 * 360), byrow = TRUE, ncol = 360)
rst2 <- raster(mat2, xmn = -180, xmx = 180, ymn = -90, ymx = 90)
getTile(rst2)
getTile(extent(rst1))
getTile(sf::st_bbox(nc))
# ex 7: map names as returned by search4map() ############
getTile("Austria")
getTile(c("Austria", "Germany"))
# or search for specific map name patterns (use with caution):
m1 <- search4map("Per")
getTile(m1)
# or use 'map' objects directly (remember to use map(..., fill = TRUE)):
m2 <- map("state", region = "new jersey", fill = TRUE)
getTile(m2)
Run the code above in your browser using DataLab