# NOT RUN {
# }
# NOT RUN {
### ---------------------------------------------- ###
## Default Folders need to be set. This shold be in an .Rprofile file
### ---------------------------------------------- ###
## generally use: set_default_rcreds_ALL(parent_folder = "~/.rcreds/")
set_default_rcreds_ALL(parent_folder = file.path(tempdir(), ".rcreds/"),
create_if_not_exist = TRUE)
### ---------------------------------------------- ###
library(rcreds)
key <- create_key()
file_creds <- write_credentials_to_file(username="cosmo", password="too many secrets", key=key)
file_key <- save_key(folder="different/key/location")
### IN ANOTHER FILE
key <- read_key_from_file(folder="different/key/location")
creds <- read_credentials_from_file(key=key, fail_if_cant_decrypt=FALSE, showWarnings=FALSE)
## normally, leave the above flags as their default TRUE. Using FALSE for this example only.
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab