>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. _______________________________________________ grass-stats mailing list grass-stats@lists.osgeo.org http://lists.osgeo.org/mailman/listinfo/grass-stats