atualiza.grafico {arvoRe}R Documentation

Usage

atualiza.grafico(...)

Arguments

...

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(...) {
        .Filename <- paste(tempdir(),"\", "arvore.png", sep="")
        if (!file.exists(.Filename)) file.remove(.Filename)
        
        png(file=.Filename, width = imgWidth, height = imgHeight, bg = "white", restoreConsole = FALSE)
                plot.tree(TheTree, line.type = .treeangle, show.probability = .probabilityconf, 
                                        show.payoffs = .payoffsconf, show.notes = .notesconf, 
                                        node.name.font.size = .node.name.font.size, payoffs.font.size = .payoffs.font.size, 
                                        notes.font.size = .notes.font.size)
        dev.off()

        image1 <- tclVar()
        tcl("image","create","photo",image1,file=.Filename)
        tkcreate(Canvas, "image", imgWidth/2, imgHeight/2, image = image1, anchor = "center")
        tkconfigure(Canvas, scrollregion = c(0,0,imgWidth,imgHeight))
        
        file.remove(.Filename)
        tkwm.deiconify(tt)
  }

[Package arvoRe version 0.1.7 Index]