nodoselecionado {ArvoRe}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

nodoselecionado()

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function() {
        ans <- tclvalue(tcl(treeWidget,"selection","get"))
        if ( ans == "") {
                return(" ")
        } else {
                pos <- 1
                while (pos <= nchar(ans)) {
                        if ( substr(ans, pos, pos) == "." ) {
                                ans.node <- substr(ans,1,pos-1)
                                ans.col <- substr(ans,pos+1,nchar(ans))
                                pos <- nchar(ans) + 1
                        }
                        pos <- pos + 1
                }       
                return(c(ans,ans.node,ans.col)) 
        }
  }

[Package ArvoRe version 0.1.6 Index]