# Will only run if GRASS is running
if(check_running()){
# Load data set
dem <- system.file("extdata", "dem.tif", package = "rdwplus")
sites <- system.file("extdata", "site.shp", package = "rdwplus")
# Set environment parameters and import data to GRASS
set_envir(dem)
vector_to_mapset(vectors = sites)
# Point to raster
point_to_raster(outlets = "site", out = "sites_rast.tif", overwrite = TRUE)
# Check conversion success
vibe_check()
}
Run the code above in your browser using DataLab