powered by
PasswordDlg()
## Not run: # pw <- PasswordDlg() # pw## End(Not run)
Run the code above in your browser using DataLab