[GRASS-stats] Using GRASS addons in R on Windows
Roger Bivand
Roger.Bivand at nhh.no
Mon Jan 11 11:25:19 PST 2016
The link is *not* to CRAN, and a lot more testing will be needed before I even submit to CRAN - re your link from GRASS-dev to this thread. I need to know that use cases of g.extensions installed workflows now succeed where previously they failed for OSGeo4W and native Windows builds of GRASS. CRAN isn't used for speculating about possibilities that things might (or might not) work - that is R-forge, from which you may svn update, then R CMD build rgrass7, then R CMD INSTALL --build rgrass7_0.1-4.tar.gz (using RTools), then install from local zip file, then run the workflow.
There are other pending edits to vector file transfer on Windows, so the extensions issue isn't alone enough to trigger a submission to CRAN.
Roger
--
Roger Bivand
Norwegian School of Economics
Helleveien 30, 5045 Bergen, Norway
Roger.Bivand at nhh.no
________________________________________
Fra: grass-stats [grass-stats-bounces at lists.osgeo.org] på vegne av Roger Bivand [Roger.Bivand at nhh.no]
Sendt: 11. januar 2016 3:06
Til: Helmut Kudrnovsky
Kopi: grass-stats at lists.osgeo.org
Emne: Re: [GRASS-stats] Using GRASS addons in R on Windows
On Mon, 11 Jan 2016, Helmut Kudrnovsky wrote:
>> 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:
OK, thanks. SVN commited revisions at # 45. I've sent a build request to R
Winbuilder to get a regular Windows rgrass7 binary, ready now at:
http://win-builder.r-project.org/s90s00N7rhyt/
WN_bat should now include *.bat files in GRASS_ADDON_BASE, which is in the
PATH for me using Windows Native (not checked with OSGeo4W). References to
msys and WINGISBASE removed.
Comments welcome,
Roger
>
>> 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.
> _______________________________________________
> grass-stats mailing list
> grass-stats at lists.osgeo.org
> http://lists.osgeo.org/mailman/listinfo/grass-stats
--
Roger Bivand
Department of Economics, Norwegian School of Economics,
Helleveien 30, N-5045 Bergen, Norway.
voice: +47 55 95 93 55; fax +47 55 95 91 00
e-mail: Roger.Bivand at nhh.no
http://orcid.org/0000-0003-2392-6140
https://scholar.google.no/citations?user=AWeghB0AAAAJ&hl=en
http://depsy.org/person/434412
_______________________________________________
grass-stats mailing list
grass-stats at lists.osgeo.org
http://lists.osgeo.org/mailman/listinfo/grass-stats
More information about the grass-stats
mailing list