Eu tenho um script long-ish para fazer alguma análise de dados, e tem que se conectar a vários bancos de dados. Um dos bancos de dados tende a atualizar minha senha com mais freqüência do que eu gostaria, então gostaria de adicionar uma caixa pop-up para que eu digite minha senha atual. Eu encontrei este exemplo, mas não entendo o suficiente para ver o retorno de meu valor quando a caixa de diálogo é descartada. Eu pensei em defini-lo como uma variável global (<<-) dentro da função OnOK, mas isso parece confuso

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)