A quick way to grab user credentials at run-time from the console
user_credentials <- function() {
# capture the user name
U <- readline("Account username: ")
# capture the password
P <- readline("Account password: ")
# return the data as a list
return(list(U,P))
}