# 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