Добавьте всплывающее текстовое поле в скрипт R с помощью tcltk

У меня есть длинный -скрипт для анализа данных, и он должен подключаться к нескольким базам данных. Одна из баз данных имеет тенденцию обновлять мой пароль чаще, чем мне хотелось бы, поэтому я хотел бы добавить всплывающее окно для ввода моего текущего пароля. Я нашел этот пример, но недостаточно понимаю tcltk, чтобы увидеть, как вернуть мое значение при закрытии диалогового окна. Я думал определить его как глобальную переменную(<<-)внутри функции 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)