Slide 36
Slide 36 text
Secret Library
.secret_to_keep <- function(user, pass) {
if (is.null(pass)) {
pass <- getPass("LDAP Password (the one you use to login to Lightfoot and RStudio):")
}
secret_to_keep <- c(password = pass,
username = user)
return(secret_to_keep)
}
setup_user_pass <- function(username = unname(Sys.info()['user']),
password = NULL,
public_key = '~/.ssh/id_rsa.pub',
vault = '/home/sdal/projects/sdal/vault',
secret_name = unname(Sys.info()['user']),
verbose = FALSE) {
add_user(username, public_key, vault)
secret_to_keep <- .secret_to_keep(user = username, pass = password)
add_secret(secret_name, secret_to_keep, users = username, vault = vault)
}
get_my_password <- function(secret_name = unname(Sys.info()['user']),
key = local_key(),
vault = '/home/sdal/projects/sdal/vault') {
return(unname(get_secret(secret_name, key , vault)['password']))
}
36/49