The default user key can be set in the USER_KEY variable and otherwise
is ~/.ssh/id_rsa. Note that on Windows we treat ~ as the windows user
home (and not the documents folder).
my_key()
my_pubkey()The my_pubkey() function looks for the public key by appending .pub
to the above key path. If this file does not exist, it reads the private key file
and automatically derives the corresponding pubkey. In the latter case the user
may be prompted for a passphrase if the private key is protected.
# 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())
#> [2048-bit rsa private key]
#> md5: 8610f8877a163649733648dbae860a18
#> sha256: 0f489e213a92762fccc580faee8d5c2012cb02a50e5f0c6749bed9f2c2139c12
print(my_pubkey())
#> [2048-bit rsa public key]
#> md5: 8610f8877a163649733648dbae860a18
#> sha256: 0f489e213a92762fccc580faee8d5c2012cb02a50e5f0c6749bed9f2c2139c12