tcltk R-如何访问函数返回的值

我刚从

tcltk

和

R

开始。调用第二个函数时，调用名为

myFun1

的函数访问计算值时遇到问题

myFun2

：

以下是我的UI的简化版本：

简单tcltk接口 但是我无法使用

myFun2

访问创建的列表。

---

关于如何在

myFun2

中访问返回值表单

myFun1

的任何建议？

我找到了一个解决方案，起初我认为这不是一种真正“干净”的方法，但即使在官方文档中也是这样做的。 只需使用

library(tcltk)
tt <- tktoplevel()
    topMenu <- tkmenu(tt)
    tkconfigure(tt, menu = topMenu)
    fileMenu <- tkmenu(topMenu, tearoff = FALSE)
        tkadd(fileMenu, "command", label = "Function1", command = myFun1)
        tkadd(fileMenu, "command", label = "Function2", command = myFun2)
        tkadd(topMenu, "cascade", label = "Tab", menu = fileMenu)
tkfocus(tt)

myFun1 <- function() { 
    compVal <- 2*3
    compVal
}

myFun2 <- function() { 
    msg <- paste("The value is: \n", compVal )
    mbval<- tkmessageBox(title="This is the title",
                     message=msg,type="yesno",icon="question")
}

res <- list(compVal=compVal)

myFun1 <- function() { 
    compVal <<- 2*3
}