gmeta | R Documentation |
GRASS LOCATION metadata are read into a list in R; helper function
getLocationProj returns a WKT2 string of projection information. The helper
function gmeta2grd
creates a GridTopology object from the current
GRASS mapset region definitions.
gmeta(ignore.stderr = FALSE, g.proj_WKT = NULL)
getLocationProj(ignore.stderr = FALSE, g.proj_WKT = NULL)
gmeta2grd(ignore.stderr = FALSE)
## S3 method for class 'gmeta'
print(x, ...)
get.ignore.stderrOption()
get.stop_on_no_flags_parasOption()
get.echoCmdOption()
get.useInternOption()
get.legacyExecOption()
get.defaultFlagsOption()
get.suppressEchoCmdInFuncOption()
set.ignore.stderrOption(value)
set.stop_on_no_flags_parasOption(value)
set.echoCmdOption(value)
set.useInternOption(value)
set.legacyExecOption(value)
set.defaultFlagsOption(value)
set.suppressEchoCmdInFuncOption(value)
ignore.stderr |
default FALSE, can be set to TRUE to silence
|
g.proj_WKT |
default NULL: return WKT2 representation in GRASS >= 7.6 and Proj4 in GRASS < 7.6; may be set to FALSE to return Proj4 for GRASS >= 7.6. |
x |
S3 object returned by gmeta |
... |
arguments passed through print method |
value |
logical value for setting options on |
Returns list of g.gisenv, g.region -g3, and g.proj values.
Roger S. Bivand, e-mail: Roger.Bivand@nhh.no
run <- FALSE
if (nchar(Sys.getenv("GISRC")) > 0 &&
read.dcf(Sys.getenv("GISRC"))[1, "LOCATION_NAME"] == "nc_basic_spm_grass7") {
run <- TRUE
}
if (run) {
G <- gmeta()
print(G)
cat(getLocationProj(), "\n")
cat(getLocationProj(g.proj_WKT = FALSE), "\n")
grd <- gmeta2grd()
print(grd)
ncells <- prod(slot(grd, "cells.dim"))
df <- data.frame(k = rep(1, ncells))
mask_SG <- sp::SpatialGridDataFrame(grd, data = df)
print(summary(mask_SG))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.