Encrypt using Github public key

pubkey.R

github_pubkey <- function(user){
  url <- sprintf("https://api.github.com/users/%s/keys", user)
  keys <- jsonlite::fromJSON(url)
  lapply(keys$key, openssl::read_pubkey)
}

# Get pubkey from Gabor
gabor <- github_pubkey('gaborcsardi')
pubkey <- gabor[[1]] #has 3 keys, use first one

# Example of old repo
buf <- openssl::rsa_encrypt(charToRaw("My secret token"), pubkey)
openssl::base64_encode(buf)

Note that you can use my_key() instead of read_key("~/.ssh/id_rsa").