# NOT RUN {
# Set random RSA key as default
key <- rsa_keygen()
write_pem(key, tmp <- tempfile(), password = "")
rm(key)
Sys.setenv("USER_KEY" = tmp)
# Check the new keys
print(my_key())
print(my_pubkey())
# }
Run the code above in your browser using DataLab