getPassword: getPassword
In swish-climate-impact-assessment/rpostgrestools: manipulate postgres from R

Description Usage Arguments Author(s) Examples

getPassword

1	getPassword(remote = F)

remote

ivanhanigan

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (remote = F) 
{
    if (remote == F) {
        require(tcltk)
        tt <- tktoplevel()
        pass = tclVar("")
        label.widget <- tklabel(tt, text = "Enter Password")
        password.widget <- tkentry(tt, show = "*", textvariable = pass)
        ok <- tkbutton(tt, text = "Ok", command = function() tkdestroy(tt))
        tkpack(label.widget, password.widget, ok)
        tkwait.window(tt)
        return(tclvalue(pass))
    }
    else {
        pass <- readline("Type your password into the console: ")
        return(pass)
    }
  }