Révision 2456
| tmp/org.txm.groovy.core/src/groovy/org/txm/macro/debug/RVersionMacro.groovy (revision 2456) | ||
|---|---|---|
| 9 | 9 |
|
| 10 | 10 |
def r = RWorkspace.getRWorkspaceInstance() |
| 11 | 11 |
|
| 12 |
println r.eval("R.version.string").asString()
|
|
| 12 |
println "VERSION="+r.eval("R.version.string").asString()
|
|
| 13 |
|
|
| 14 |
println ".libPaths="+r.eval(".libPaths()").asString()
|
|
| 15 |
println ".Library="+r.eval(".Library").asString()
|
|
| 16 |
println ".Library.site="+r.eval(".Library.site").asString()
|
|
| 17 |
|
|
| 18 |
println "R.home()="+r.eval("R.home()").asString()
|
|
| 19 |
rez = r.eval("options()")
|
|
| 20 |
println rez |
|
| 21 |
|
|
| 22 |
def printList(def list) {
|
|
| 23 |
printList(list, ""); |
|
| 24 |
} |
|
| 25 |
def printList(def list, def tabs) {
|
|
| 26 |
int n = 0; |
|
| 27 |
def names = list.names |
|
| 28 |
for (def o : list) {
|
|
| 29 |
if (o != null) {
|
|
| 30 |
if (o.isList()) {
|
|
| 31 |
println tabs+"\t"+names[n]+"=" |
|
| 32 |
printList(o.asList(), tabs+"\t") |
|
| 33 |
} else {
|
|
| 34 |
println tabs+"\t"+names[n]+"="+o.asString() |
|
| 35 |
} |
|
| 36 |
} |
|
| 37 |
n++ |
|
| 38 |
} |
|
| 39 |
} |
|
| 40 |
|
|
| 41 |
options=rez.asList() |
|
| 42 |
printList(options) |
|
| 43 |
|
|
Formats disponibles : Unified diff