misc/sample_dem-crs.R
In giswqs/whiteboxR: 'WhiteboxTools' R Frontend
library(whitebox)
library(terra)
r <- rast(sample_dem_data())
crs(r) <- "EPSG:26918"
r2 <- rast(r)
res(r2) <- 90
ext(r2) <- c(664692, 664692 + 237 * 90,
4878904, 4878904 + 188 * 90)
r3 <- project(r, r2)
writeRaster(r3, "inst/extdata/DEM.tif", NAflag = -32768.0, overwrite=TRUE)
giswqs/whiteboxR documentation built on Feb. 13, 2024, 6:16 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(whitebox)
library(terra)
r <- rast(sample_dem_data())
crs(r) <- "EPSG:26918"
r2 <- rast(r)
res(r2) <- 90
ext(r2) <- c(664692, 664692 + 237 * 90,
4878904, 4878904 + 188 * 90)
r3 <- project(r, r2)
writeRaster(r3, "inst/extdata/DEM.tif", NAflag = -32768.0, overwrite=TRUE)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.