Agregue un cuadro de texto emergente dentro de un script R usando tcltk

Tengo un script de larga duración para hacer un análisis de datos, y tiene que conectarse a varias bases de datos. Una de las bases de datos tiende a actualizar mi contraseña con más frecuencia de la que deseo, así que me gustaría agregar un cuadro emergente para que ingrese mi contraseña actual. Encontré este ejemplo pero no entiendo lo suficiente como para ver dos como para devolver mi valor cuando se cierra el cuadro de diálogo. He pensado en definirlo como una variable global (<<-) dentro de la función OnOK, pero esto parece desordenado

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)