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: 0939f0667b1e586b5545a162885e49af
#> sha256: 2e2a9774bf3ff03dbb6beb9a5e2b75886c58cd478d01502cb70a4adc90aa4af3
print(my_pubkey())
#> [2048-bit rsa public key]
#> md5: 0939f0667b1e586b5545a162885e49af
#> sha256: 2e2a9774bf3ff03dbb6beb9a5e2b75886c58cd478d01502cb70a4adc90aa4af3