[GRASS-stats] Using GRASS addons in R on Windows
Helmut Kudrnovsky
hellik at web.de
Mon Jan 11 02:55:05 PST 2016
>completely accessible elsewhere:
>
>https://r-forge.r-project.org/projects/spgrass/
>
>using SVN.
I've done a SVN checkout.
I'm not sure that I can contribute code diffs, but here are some test
findings:
> library(rgrass7)
Loading required package: sp
Loading required package: XML
GRASS GIS interface loaded with GRASS version: GRASS 7.0.3RC1 (2015)
and location: nc_spm_08_grass7
-------------------
AFAIK msys is dropped in winGRASS7
C:\tmp\rg\rgrass7\pkg\rgrass7\R\AAA.R
SYS <- ""
if (.Platform$OS.type == "windows") {
if (Sys.getenv("OSTYPE") == "msys") SYS <- "msys"
else SYS <- "WinNat"
} else if (.Platform$OS.type == "unix") SYS <- "unix"
assign("SYS", SYS, envir=.GRASS_CACHE)
res <- ""
if (SYS == "msys" || SYS == "WinNat") res =".exe"
assign("addEXE", res, envir=.GRASS_CACHE)
assign("WN_bat", "", envir=.GRASS_CACHE)
> t1 <- .Platform$OS.type
> t1
[1] "windows"
> t2 <- Sys.getenv("OSTYPE")
> t2
[1] ""
>
so maybe simplified to:
if (.Platform$OS.type == "windows") SYS <- "WinNat"
else if (.Platform$OS.type == "unix") SYS <- "unix"
[...]
if (SYS == "WinNat") res =".exe"
assign("addEXE", res, envir=.GRASS_CACHE)
if (SYS == "WinNat" && nchar(gisrc) > 0) {
pyScripts <- basename(list.files(paste(Sys.getenv("WINGISBASE"),
"scripts", sep="/"), pattern="py$"))
names(pyScripts) <- sub("\\.py", "", pyScripts)
assign("pyScripts", pyScripts, envir=.GRASS_CACHE)
> t3 <- Sys.getenv("WINGISBASE")
> t3
[1] ""
> t4 <- Sys.getenv("GISBASE")
> t4
[1] "C:\\OSGEO4~1\\apps\\grass\\grass-7.0.3RC1"
> t5 <- Sys.getenv("GRASS_ADDON_BASE")
> t5
[1] "C:\\Users\\myricaria\\AppData\\Roaming\\GRASS7\\addons"
> pyScripts <- basename(list.files(paste(Sys.getenv("GISBASE"), "scripts",
> "scripts", sep="/"), pattern="py$"))
> pyScripts
[1] "d.correlate.py" "d.out.file.py"
[3] "d.polar.py" "d.rast.edit.py"
[5] "d.rast.leg.py" "d.redraw.py"
[7] "d.shade.py" "d.to.rast.py"
[9] "d.what.rast.py" "d.what.vect.py"
[11] "db.dropcolumn.py" "db.droptable.py"
[13] "db.in.ogr.py" "db.out.ogr.py"
[15] "db.test.py" "db.univar.py"
[17] "g.extension.all.py" "g.extension.py"
[19] "g.gui.animation.py" "g.gui.dbmgr.py"
[21] "g.gui.gcp.py" "g.gui.gmodeler.py"
[23] "g.gui.iclass.py" "g.gui.mapswipe.py"
[25] "g.gui.psmap.py" "g.gui.rlisetup.py"
[27] "g.gui.timeline.py" "g.gui.tplot.py"
[29] "g.gui.vdigit.py" "g.manual.py"
[31] "i.colors.enhance.py" "i.image.mosaic.py"
[33] "i.in.spotvgt.py" "i.oif.py"
[35] "i.pansharpen.py" "i.spectral.py"
[37] "i.tasscap.py" "m.proj.py"
[39] "r.blend.py" "r.buffer.lowmem.py"
[41] "r.colors.stddev.py" "r.fillnulls.py"
[43] "r.grow.py" "r.import.py"
[45] "r.in.aster.py" "r.in.srtm.py"
[47] "r.in.wms.py" "r.mask.py"
[49] "r.out.xyz.py" "r.pack.py"
[51] "r.plane.py" "r.reclass.area.py"
[53] "r.rgb.py" "r.shade.py"
[55] "r.tileset.py" "r.unpack.py"
[57] "r3.in.xyz.py" "t.create.py"
[59] "t.info.py" "t.list.py"
[61] "t.merge.py" "t.rast.accdetect.py"
[63] "t.rast.accumulate.py" "t.rast.aggregate.ds.py"
[65] "t.rast.aggregate.py" "t.rast.colors.py"
[67] "t.rast.export.py" "t.rast.extract.py"
[69] "t.rast.gapfill.py" "t.rast.import.py"
[71] "t.rast.list.py" "t.rast.mapcalc.py"
[73] "t.rast.neighbors.py" "t.rast.out.vtk.py"
[75] "t.rast.series.py" "t.rast.to.rast3.py"
[77] "t.rast.univar.py" "t.rast3d.extract.py"
[79] "t.rast3d.list.py" "t.rast3d.mapcalc.py"
[81] "t.rast3d.univar.py" "t.register.py"
[83] "t.remove.py" "t.rename.py"
[85] "t.sample.py" "t.select.py"
[87] "t.shift.py" "t.snap.py"
[89] "t.support.py" "t.topology.py"
[91] "t.unregister.py" "t.vect.db.select.py"
[93] "t.vect.export.py" "t.vect.extract.py"
[95] "t.vect.import.py" "t.vect.list.py"
[97] "t.vect.observe.strds.py" "t.vect.univar.py"
[99] "t.vect.what.strds.py" "v.build.all.py"
[101] "v.centroids.py" "v.db.addcolumn.py"
[103] "v.db.addtable.py" "v.db.dropcolumn.py"
[105] "v.db.droprow.py" "v.db.droptable.py"
[107] "v.db.join.py" "v.db.reconnect.all.py"
[109] "v.db.renamecolumn.py" "v.db.univar.py"
[111] "v.db.update.py" "v.dissolve.py"
[113] "v.import.py" "v.in.e00.py"
[115] "v.in.geonames.py" "v.in.lines.py"
[117] "v.in.mapgen.py" "v.in.wfs.py"
[119] "v.krige.py" "v.pack.py"
[121] "v.rast.stats.py" "v.report.py"
[123] "v.to.lines.py" "v.unpack.py"
[125] "v.what.strds.py" "v.what.vect.py"
[127] "wxpyimgview.py"
>
AFAIK variable %WINGISBASE% isn't there anymore in winGRASS7, it's now
%GISBASE%
-------------------
C:\tmp\rg\rgrass7\pkg\rgrass7\R\rgrass.R
.addexe <- function() {
res <- ""
SYS <- get("SYS", envir=.GRASS_CACHE)
if (SYS == "msys" || SYS == "WinNat") res =".exe"
res
}
maybe simplified to:
if (SYS == "WinNat") res =".exe"
-------------------
C:\tmp\rg\rgrass7\pkg\rgrass7\R\xml1.R
bin_out_win <- c("d.colors.exe", "d.save.exe", "d.what.rast.exe",
"d.what.vect.exe", "d.zoom.exe", "g.parser.exe", "gis.m.bat",
"i.spectral.bat", "mkftcap.bat", "r.mapcalc.exe", "r.tileset.bat",
"r3.mapcalc.exe", "v.in.gpsbabel.bat", "v.proj.exe")
"gis.m.bat" -> AFAIK gis.m is dropped in GRASS7
-----
best regards
Helmut
--
View this message in context: http://osgeo-org.1560.x6.nabble.com/Using-GRASS-addons-in-R-on-Windows-tp5244411p5244520.html
Sent from the Grass - Stats mailing list archive at Nabble.com.
More information about the grass-stats
mailing list