getPassword: getPassword

In swish-climate-impact-assessment/swishdbtools: Database tools for use with the SWISH and CARDAT projects

Description

getPassword

Usage

getPassword(remote = F)

Arguments

remote

Author(s)

ivanhanigan

Examples

## Not run: 
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)
    }
  }

## End(Not run)

swish-climate-impact-assessment/swishdbtools documentation built on May 21, 2020, 1:03 a.m.