使用 tcltk 在 R 脚本中添加弹出文本框

我有一个很长的脚本来进行一些数据分析，它必须连接到多个数据库。其中一个数据库更新密码的频率往往比我想要的要高，因此我想添加一个弹出框供我输入当前密码。我找到了这个示例，但不了解足够的 tcltk 来查看当对话框关闭时 hwo 返回我的值。我想过将其定义为全局变量（<<-）在 OnOK 函数中，但这看起来很混乱

require(tcltk)
tt<-tktoplevel()
Name <- tclVar("Password")
entry.Name <-tkentry(tt,width="20",textvariable=Name)
tkgrid(tklabel(tt,text="Enter Password"))
tkgrid(entry.Name)
OnOK <- function()
{
    NameVal <- tclvalue(Name)
    tkdestroy(tt)
}
OK.but <-tkbutton(tt,text="   OK   ",command=OnOK)
tkbind(entry.Name, "<Return>",OnOK)
tkgrid(OK.but)
tkfocus(tt)

您可能会发现ginput的函数gWidgets格雷格·斯诺 (Greg Snow) 为您总结了以下建议：

require(gWidgets)
options(guiToolkit="tcltk") 
NameVal <- ginput("Enter your passsword:")

NameVal将包含输入的字符串或NA如果你取消。