# Will only run if GRASS is running
if(check_running()){
# Load data set
dem <- system.file("extdata", "dem.tif", package = "rdwplus")
sts <- system.file("extdata", "sites.shp", packages = "rdwplus")
# Set environment parameters
set_envir(dem)
# Read in sites
vector_to_mapset(sts)
# Convert first site to raster
coord_to_raster("site", 1, "coords", overwrite = TRUE)
}
Run the code above in your browser using DataLab