从R中的TclTk GUI返回变量

Question

我按照TclTk示例创建了一个列表框，让用户选择他们最喜欢的水果(参见下面的代码)。该示例输出用户的选择，仅此而已。但是，我想在脚本中稍后使用该选择来做各种事情(在情节标题，文件名等中使用它)。我如何将用户的选择从TclTk GUI返回到脚本的其余部分?

library(tcltk2)
win1 <- tktoplevel()
win1$env$lst <- tk2listbox(win1, height = 4, selectmode = "single")
tkgrid(tk2label(win1, text = "What's your favorite fruit?", justify = "left"),
padx = 10, pady =c(15, 5), sticky = "w")
tkgrid(win1$env$lst, padx = 10, pady = c(5, 10))
fruits <- c("Apple", "Orange", "Banana", "Pear", "Apricot")
for (fruit in fruits)
  tkinsert(win1$env$lst, "end", fruit)
# Default fruit is Banana.  Indexing starts at zero.
tkselection.set(win1$env$lst, 2)
onOK <- function() {
  fruitChoice <- fruits[as.numeric(tkcurselection(win1$env$lst)) + 1]
  tkdestroy(win1)
  msg <- paste0("Good choice! ", fruitChoice, "s are delicious!")
  tkmessageBox(message = msg)
}
win1$env$butOK <-tk2button(win1, text = "OK", width = -6, command = onOK)
tkgrid(win1$env$butOK, padx = 10, pady = c(5, 15))

Answer 1

我如何从TclTk GUI返回用户的选择到脚本的其余部分?

这取决于你想做什么

选项1:

如果你不再需要GUI，你可以在R变量中从GUI中提取选定的设置后销毁它。这正是您在onOK"事件处理程序"函数中所做的。

您应该添加以下R命令等待tcltk窗口在继续执行这一行之后的R代码之前关闭:

# Wait for the window to be closed
tkwait.window(win1)

然后你可以在你的业务逻辑中使用R变量中的值(从事件处理函数中的GUI设置中填充)，例如通过在代码末尾添加业务逻辑代码:

choice <- tkmessageBox(message=paste("Do you want to buy", fruitChoice, "now?"), type = "yesno", icon="question")

选项2:

您的业务逻辑在事件处理程序函数中触发(执行)(不破坏/关闭窗口)以可视化业务逻辑的输出("状态更改")。

在这个GUI驱动的范例中，您可以直接将业务逻辑代码添加到事件处理程序函数中，而无需调用tkdestroy。

要关闭窗口，您可以添加"exit"，"close"，"cancel"…按钮。在这些按钮的事件处理函数中，您调用tkdestroy。

Answer 2

列表框中有可用的命令参数(需要知道创建它时使用的是哪个包)。例如，有一个参数"-selectioncommand"。您可以设置一个命名空间变量来访问所选值。

e。G -selectioncommand {set::xyz::test}这应该在创建小部件时使用。